24971 - Rotina 23 - Remessa cobrança escritural não leva o endereço do cliente
Problema: Após atualização pra 5.8.11.93 o sistema passou a não levar o endereço do cliente para o arquivo remessa pelo processo automático 23 - remessa cobrança escritural. Se gerado manualmente leva normal, somente quando gerado pelo processo que não gera para boa parte dos clientes.
Rotina / Tela: Processo automático 23 - Remessa Cobrança Escritural
Solução: Verificado que neste caso, alguns endereços não estão sendo passados para a geração do arquivo pois o titulo não possui o campo SeqCob(Sequencia de endereços de cobrança) informado.
Rotina / Tela: Processo automático 23 - Remessa Cobrança Escritural
Solução: Verificado que neste caso, alguns endereços não estão sendo passados para a geração do arquivo pois o titulo não possui o campo SeqCob(Sequencia de endereços de cobrança) informado.
Esse cadastro deve ser realizado na tela F085COB - Cadastros / Clientes e Fornecedores / Clientes / Cobrança.
Na remessa via tela esse campo não é consistido, somente via processo automático. Segue select para identificar os títulos sem a informação:
SELECT
E301TCR.codcli CODCLI, E301TCR.seqcob
FROM
E301TCR,E085CLI,E085HCL,E030ORM,E030ETC,E039POR,E001TNS,E070FIL
WHERE
E301TCR.CODEMP = {CODEMP} AND
E301TCR.SITTIT NOT IN ('AE','CE','AS') AND
E301TCR.VLRABE > 0 AND
0=0 AND
E301TCR.CODPOR = {CODPOR} AND
E301TCR.CODCRT = {CODCRT} AND
E301TCR.NUMARB = 0 AND
E301TCR.TITBAN <> ' ' AND
E085CLI.CODCLI = E301TCR.CODCLI AND
E085HCL.CODEMP = E301TCR.CODEMP AND
E085HCL.CODFIL = E301TCR.CODFIL AND
E085HCL.CODCLI = E301TCR.CODCLI AND
E039POR.CODEMP = E301TCR.CODEMP AND
E039POR.CODPOR = {CODPOR} AND
E030ETC.CODBAN = E039POR.CODBAN AND
E030ORM.CODBAN = E039POR.CODBAN AND
E030ORM.CODOCR = {CODOCR} AND
E030ETC.CODTPT = E301TCR.CODTPT AND
E001TNS.CODEMP = E301TCR.CODEMP AND
E001TNS.CODTNS = E301TCR.CODTNS AND
((E085HCL.PORSI1 <> E070FIL.RECPOR) OR
(E085HCL.PORSI2 <> E070FIL.RECPOR)) AND
E301TCR.CODEMP = E085HCL.CODEMP AND
E301TCR.CODFIL = E085HCL.CODFIL AND
E301TCR.CODCLI = E085HCL.CODCLI AND
E301TCR.CODEMP = E070FIL.CODEMP AND
E301TCR.CODFIL = E070FIL.CODFIL AND
E001TNS.LISMOD = 'CRE' AND
(( (E301TCR.CODFIL = 1) ))
ORDER BY
E301TCR.CODCLI
E301TCR.codcli CODCLI, E301TCR.seqcob
FROM
E301TCR,E085CLI,E085HCL,E030ORM,E030ETC,E039POR,E001TNS,E070FIL
WHERE
E301TCR.CODEMP = {CODEMP} AND
E301TCR.SITTIT NOT IN ('AE','CE','AS') AND
E301TCR.VLRABE > 0 AND
0=0 AND
E301TCR.CODPOR = {CODPOR} AND
E301TCR.CODCRT = {CODCRT} AND
E301TCR.NUMARB = 0 AND
E301TCR.TITBAN <> ' ' AND
E085CLI.CODCLI = E301TCR.CODCLI AND
E085HCL.CODEMP = E301TCR.CODEMP AND
E085HCL.CODFIL = E301TCR.CODFIL AND
E085HCL.CODCLI = E301TCR.CODCLI AND
E039POR.CODEMP = E301TCR.CODEMP AND
E039POR.CODPOR = {CODPOR} AND
E030ETC.CODBAN = E039POR.CODBAN AND
E030ORM.CODBAN = E039POR.CODBAN AND
E030ORM.CODOCR = {CODOCR} AND
E030ETC.CODTPT = E301TCR.CODTPT AND
E001TNS.CODEMP = E301TCR.CODEMP AND
E001TNS.CODTNS = E301TCR.CODTNS AND
((E085HCL.PORSI1 <> E070FIL.RECPOR) OR
(E085HCL.PORSI2 <> E070FIL.RECPOR)) AND
E301TCR.CODEMP = E085HCL.CODEMP AND
E301TCR.CODFIL = E085HCL.CODFIL AND
E301TCR.CODCLI = E085HCL.CODCLI AND
E301TCR.CODEMP = E070FIL.CODEMP AND
E301TCR.CODFIL = E070FIL.CODFIL AND
E001TNS.LISMOD = 'CRE' AND
(( (E301TCR.CODFIL = 1) ))
ORDER BY
E301TCR.CODCLI