Dúvida

Como utilizar a função AbrirTelaSistema para abrir a tela Suprimentos / Gestão de Recebimento / Notas Fiscais de Entrada / Consultas / Dados Gerais - F441CNE (Consulta de Notas Fiscais de Entrada)?

Solução

Para que a tela seja aberta de forma automática, realize os passos a seguir:

1. Utilize a função AbrirTelaSistema, exemplo:

Definir Numero nCodFil;

Definir Numero nCodFor;

Definir Numero nNumNfe;

Definir Numero nSitNfe; @ Filtra o campo "Situação" do botão "Seleção" @

Definir Alfa aCodFil;

Definir Alfa aCodFor;

Definir Alfa aCodSnf;

Definir Alfa aNumNfe;

Definir Alfa aEntIni;

Definir Alfa aEntFim;

Definir Alfa aEmiIni;

Definir Alfa aEmiFim;

Definir Alfa aSitNfe;

Definir Alfa aNumNff; @ Filtra o campo "Fatura" do botão "Seleção" @

Definir Alfa aParametros;

nCodFil = 1;

nCodFor = 1000;

aCodSnf = "NFE";

nNumNfe = 87489;

nSitNfe = 0;

aNumNff = "";

IntParaAlfa(nCodFil, aCodFil);

IntParaAlfa(nCodFor, aCodFor);

IntParaAlfa(nNumNfe, aNumNfe);

IntParaAlfa(nSitNfe, aSitNfe);

aEmiIni = "00/00/0000";

ConvDataInt(aEmiIni,nDatNul);

IntParaAlfa(nDatNul,aEmiIni);

aEmiFim = "00/00/0000";

ConvDataInt(aEmiFim,nDatNul);

IntParaAlfa(nDatNul,aEmiFim);

aEntIni = "17/09/2024";

ConvDataInt(aEntIni,nDatNotNul);

IntParaAlfa(nDatNotNul,aEntIni);

aEntFim = "00/00/0000";

ConvDataInt(aEntFim,nDatNul);

IntParaAlfa(nDatNul,aEntFim);

aParametros = aCodFil + ";" + aNumNfe + ";" + aCodFor + ";" + aCodSnf + ";" +

aEmiIni + ";" + aEmiFim + ";" + aSitNfe + ";" + aNumNff + ";" + aEntIni + ";" +

aEntFim;

AbrirTelaSistema("NF441CNE_SRNF",aParametros,xRet);