F149ECD - Agrupado e Entrega Via CD

Para utilização da rotina de geração de logs de títulos do contas a receber em notas de saída são necessárias algumas configurações no sistema:

1. Na tela F000PGS, marcar o parâmetro global LogNfsTit, como "S";
2. Na tela F000PPD, definir os parâmetros dinâmicos LOG.NFS.TIT.CRE.140CNFEC01, LOG.NFS.TIT.CRE.140CNFEC02, LOG.NFS.TIT.CRE.140CNFEC03, LOG.NFS.TIT.CRE.EMISSAO e LOG.NFS.TIT.CRE.GERAR, configurados como "S";
3. Na tela F098REG, ativar os identificadores VEN-140CNFEC01, VEN-140CNFEC02 e VEN-140CNFEC03 com uma regra vinculada (a regra pode estar em branco);
4. Gravar a tabela de usuário no banco de dados para gravação dos logs. A tabela de usuário deve ser criada através do CBDS e deve estar exatamente compatível com os campos necessários para a utilização da rotina, conforme orientações abaixo:
   Orientações

   • O nome da tabela de usuário deve ser “USU_T140LOGTIT”;
   • Para adicionar os campos da tabela, basta clicar com o botão direito em cima da pasta Colunas e selecionar Nova Coluna;
   • Após informar os valores de cada coluna clique no botão Salvar;
   • Após criar todos os campos, clique no botão com desenho de raio (Confirmar personalização no banco) para confirmar as alterações.

   Campos necessários:

   Nome do campo	Máscara	Tipo	Tamanho
   USU_SEQUENCIAL	Z[11]9	Number	12
   USU_DATA	DD/MM/YYYY	Date	0
   USU_HORA	hh:mm:ss	Time	0
   USU_CODEMP	ZZZ9	Number	4
   USU_CODFIL	ZZZZ9	Number	5
   USU_CODSNF	U[3]	String	3
   USU_NUMNFV	ZZZ.ZZZ.ZZ9	Number	9
   USU_USUARIO	Z[9]9	Number	10
   USU_ORIGEM	A[10]	String	10
   USU_OPERACAO	A[50]	String	50
   USU_ERRO	A[5]	String	5
   USU_OK	A[3]	String	3
   USU_NUMTIT	U[15]	String	15
   USU_CODTPT	U[3]	String	3
   USU_CODTNS	A[5]	String	5

Definir Numero VSCODEMP;

Definir Numero VSCODFIL;

Definir Numero VSFILPED;

Definir Numero VSNUMPED;

Definir Numero VSINDITE;

Definir Alfa VSCODTNS;

Definir Alfa VSFORENT;

Definir Alfa UFS_FILIAL_CD;

Definir Alfa UFS_CONSUMIDOR_FINAL;

Definir Alfa UFS_FILIAL_PEDIDO;

Definir Alfa VSPRCTNS;

Definir Alfa aDadosPedido;

 

@ VSPRCTNS = "PreFatura" -> Tela F135FCP, define transação NF Remessa @

@ VSPRCTNS = "NFSaida" -> Tela F149GNA, define transação NF Transferência p/ filial @

 

Se ((VSPRCTNS = "PreFatura") ou (VSPRCTNS = "NFSaida")) {

SQL_Criar(aDadosPedido);

SQL_DefinirComando(aDadosPedido, "SELECT FILMAT.SIGUFS UFS_FILIAL_CD,E085CLI.SIGUFS UFS_CONSUMIDOR_FINAL,FILPED.SIGUFS

UFS_FILIAL_PEDIDO,E120PED.FORENT \

FROM E120PED,E085CLI,E070FIL FILMAT,E070FIL FILPED \

WHERE E120PED.CODEMP = FILMAT.CODEMP \

AND E120PED.CODEMP = FILPED.CODEMP \

AND FILMAT.CODFIL = :CODFIL \

AND FILPED.CODFIL = E120PED.CODFIL \

AND E120PED.CODCLI = E085CLI.CODCLI \

AND E120PED.CODEMP = :CODEMP \

AND E120PED.CODFIL = :FILPED \

AND E120PED.NUMPED = :NUMPED");

SQL_DefinirInteiro(aDadosPedido,"CODEMP",VSCODEMP);

SQL_DefinirInteiro(aDadosPedido,"CODFIL",VSCODFIL);

SQL_DefinirInteiro(aDadosPedido,"FILPED",VSFILPED);

SQL_DefinirInteiro(aDadosPedido,"NUMPED",VSNUMPED);

SQL_AbrirCursor(aDadosPedido);

 

Se (SQL_EOF(aDadosPedido) = 0) {

SQL_RetornarAlfa(aDadosPedido, "FORENT", VSFORENT);

SQL_RetornarAlfa(aDadosPedido, "UFS_FILIAL_CD", UFS_FILIAL_CD);

SQL_RetornarAlfa(aDadosPedido, "UFS_CONSUMIDOR_FINAL", UFS_CONSUMIDOR_FINAL);

SQL_RetornarAlfa(aDadosPedido, "UFS_FILIAL_PEDIDO", UFS_FILIAL_PEDIDO);

}

 

SQL_Destruir(aDadosPedido);

 

Se (VSFORENT = "C") { @ Pedido de entrega futura pelo CD @

Se (VSPRCTNS = "PreFatura") {

Se (UFS_FILIAL_PEDIDO = UFS_CONSUMIDOR_FINAL) {

Se (VSINDITE = 1) { @ Transação para o item de produto @

VSCODTNS = "5117I"; @ CFOP p/ NF Remessa dentro do estado @

}

Senao {

VSCODTNS = "5117"; @ CFOP p/ NF Remessa dentro do estado @

}

}

Senao {

Se (VSINDITE = 1) { @ Transação para o item de produto @

VSCODTNS = "6117I"; @ CFOP p/ NF Remessa fora do estado @

}

Senao {

VSCODTNS = "6117"; @ CFOP p/ NF Remessa fora do estado @

}

}

}

Senao { @NFSaida (Transferência entre filiais) @

Se (UFS_FILIAL_CD = UFS_FILIAL_PEDIDO) {

Se (VSINDITE = 1) { @ Transação para o item de produto @

VSCODTNS = "5152I"; @ CFOP p/ NF Transferência simbólica dentro do estado @

}

Senao {

VSCODTNS = "5152"; @ CFOP p/ NF Transferência simbólica dentro do estado @

}

}

Senao {

Se (VSINDITE = 1) { @ Transação para o item de produto @

VSCODTNS = "6152I"; @ CFOP p/ NF Transferência simbólica fora do estado @

}

Senao {

VSCODTNS = "6152"; @ CFOP p/ NF Transferência simbólica fora do estado @

}

}

}

}

}

Definir Alfa VSTnsPro;

Definir Alfa VSSigUfs;

Definir Numero VSEmpNfv;

Definir Numero VSFilNfv;

Definir Alfa VSSnfNfv;

Definir Numero VSNumNfv;

Definir Numero VSTipNfe;

Definir Alfa aDadosPedido;

Definir Alfa VSUfsPed;

Definir Alfa VSProSer;

 

Se (VSTipNfe = 11) {

SQL_Criar(aDadosPedido);

SQL_DefinirComando(aDadosPedido, "SELECT E070FIL.SIGUFS UFSPED \

FROM E070FIL, E140NFV \

WHERE E140NFV.CODEMP = :CODEMP \

AND E140NFV.CODFIL = :CODFIL \

AND E140NFV.CODSNF = :CODSNF \

AND E140NFV.NUMNFV = :NUMNFV \

AND E140NFV.CODCLI = E070FIL.FILCLI \

AND EXISTS (SELECT 1 \

FROM E001INT \

WHERE E001INT.CODEMP = E140NFV.CODEMP \

AND E001INT.CODTNS = E140NFV.TNSPRO \

AND E001INT.MODINT = 'COF') \

GROUP BY E070FIL.SIGUFS");

SQL_DefinirInteiro(aDadosPedido,"CODEMP",VSEmpNfv);

SQL_DefinirInteiro(aDadosPedido,"CODFIL",VSFilNfv);

SQL_DefinirAlfa(aDadosPedido,"CODSNF",VSSnfNfv);

SQL_DefinirInteiro(aDadosPedido,"NUMNFV",VSNumNfv);

SQL_AbrirCursor(aDadosPedido);

Se (SQL_EOF(aDadosPedido) = 0) {

SQL_RetornarAlfa(aDadosPedido, "UFSPED", VSUfsPed);

 

Se (VSSigUfs = VSUfsPed) {

Se (VSProSer = "P") { @ Transação para o item de produto @

VSTnsPro = "1152I";

}

Senao {

VSTnsPro = "1152";

}

}

Senao {

Se (VSProSer = "P") { @ Transação para o item de produto @

VSTnsPro = "2152I";

}

Senao {

VSTnsPro = "2152";

}

}

}

SQL_Destruir(aDadosPedido);

}