laffsj

Deu certo BigWinds, muito obrigado pela ajuda.

Boa tarde BigWinds, muito obrigado pelo retorno. Fiz mais testes, deu certo esta correção rev. 41921. Notei mais um detalhe, tem xml que está trazendo o valor da NFe zero, porém consultando a chave no site, existe valor. Estou tratando desta forma no código: TbManDestinatario.FieldByName('mandest_chave').AsString := DocZipItem.resDFe.chDFe; TbManDestinatario.FieldByName('mandest_serie').AsString := Copy(DocZipItem.resDFe.chDFe, 21, 2); TbManDestinatario.FieldByName('mandest_numero').AsString := Copy(DocZipItem.resDFe.chDFe, 26, 9); TbManDestinatario.FieldByName('mandest_cnpj').AsString := DocZipItem.resDFe.CNPJCPF; TbManDestinatario.FieldByName('mandest_fornecedor').AsString := DocZipItem.resDFe.xNome; TbManDestinatario.FieldByName('mandest_iest').AsString := DocZipItem.resDFe.IE; TbManDestinatario.FieldByName('mandest_dtemissao').AsString := FormatDateTime('DD/MM/YYYY', DocZipItem.resDFe.dhEmi); TbManDestinatario.FieldByName('mandest_valor').AsFloat := DocZipItem.resDFe.vNF; TbManDestinatario.FieldByName('mandest_nsu').AsInteger := StrToIntDef(DocZipItem.NSU, 0); TbManDestinatario.FieldByName('mandest_sitnfe').AsString := IntToStr(Integer(DocZipItem.resDFe.cSitDFe)); No retorno teve os seguintes dados: schresNFe - 35250754570310000170550010000028441067617590 - 3196,00 - Correto schresNFe - 35250761182051000680550070002819901000110147 - 4588,97 - Correto schresNFe - 35250707445500000186550010000810001304923098 - 3700,00 - Correto schresNFe - 35250764781941000192550010010682291590336042 - 955,86 - Correto schresNFe - 35250707445500000186550010000810161069609279 - 7400,00 - Correto schresNFe - 35250702807343000198550010002111731202507106 - 404,62 - Correto schprocNFe - 35250709139354000196550010000503391451928480 - 0,00 - Errado, NFe de venda valor: 462,05 schprocNFe - 35250774581091000647550010004292131346387574 - 0,00 - Errado, NFe de venda valor: 2.878,57 schresNFe - 35250718499051000175550010001443311001394988 - 11295,75 - Correto schresNFe - 35250707445500000186550010000810731251065390 - 8200,00 - Correto schresNFe - 35250707445500000186550010000810741200092886 - 7400,00 - Correto schresNFe - 35250756073307000177550020005483251985694147 - 3770,87 - Correto Estou com a versão 41581 instalada e fiz testes nela para ver como ficava o resultado, não aparece valor zerado, nesta versão está funcionando normalmente como na imagem.

Pessoal, acabei de fazer uns teste aqui, começou a manifestar normalmente porém sugiu um outro erro, pelo o tamanho do meu campo acaba dando out of range. Tentando encontrar o porque acabei verificando isso: case DtModule.ACBrNFe1.WebServices.DistribuicaoDFe.RetDistDFeInt.docZip.Items[i].schema of schresNFe: begin ................ TbManDestinatario.FieldByName('mandest_chave').AsString := DocZipItem.resDFe.chDFe; ................ end; schprocNFe: begin ................ TbManDestinatario.FieldByName('mandest_chave').AsString := DocZipItem.resDFe.chDFe; ................ end; Quando passa pelo schresNFe, pega o valor da chave da NFe, somente os números. Quando passa pelo schprocNFe, pega o valor da chave porém com NFe na frente dos números

Não vou conseguir testar hoje, mas dando um tempo já retorno pra vocês, obrigado.

Bom dia. Acabei de testar com o exemplo do ACBr e os schemas que vem na pasta do exemplo e está dando o mesmo erro.

Bom dia. Após atualizar o ACBr da versão 41581 para a versão 41910, comecei ter erro na manifestação do destinatário. Uso uma variável DocZipItem: TdocZipCollectionItem, começou a dar o seguinte erro: Incompatible types: 'pcnRetDistDFeInt.TdocZipCollectionItem' and 'ACBrDFeComum.RetDistDFeInt.TdocZipCollectionItem' Fiz a mudança na uses de pcnRetDistDFeInt para ACBrDFeComum.RetDistDFeInt, isso para o erro e consigo compilar, porém, não consigo mais manifestar, aparece o erro: Exception class EACBrDFeException with message 'Rejeicao: Falha no esquema xml' Como posso corrigir?

A versão 1.51 desta NT define novos prazos de implantação da versão 1.50 publicada anteriormente, conforme abaixo: • Ambiente de Homologação (ambiente de teste das empresas): 21/05/2018. • Ambiente de Produção:04/06/2018.

Boa noite, com este novo arquivo não vai mais ser necessário mudar o ACBr.inc?

Boa tarde pessoal. Estou tendo este problema também, existe clientes que ainda tem máquinas com XP por exemplo no estoque, algum setor que demanda pouco uso, teria como configurar de alguma forma que roda o sistema sem tirar NFE nele, apenas para abrir o sistema sem dar o problema com as dll? Obrigado.

Boleto Layout Sicoob.xls

Nossa ai fica complicado, aqui onde trabalho tem um setor de tecnologia do banco que me atende, inclusive quando tive o problema perguntei se tinha alguma mudança do layout e me passou que não. No manual que tenho esta assim, no que fala com relação aos espaços em branco, o que você tem esta assim também?

Rodrigo boa tarde. Gere um arquivo remessa e peça pro setor de tecnologia do banco validar (o próprio programa do cedente do siccob acusa um erro), pra mim pelo menos eles me reportam erro e tenho que mudar o fonte para que funcione corretamente. Se puder fazer isso e dar um retorno. Obrigado.

Eu só tive problema do "zero" de restante esta tudo correto pra mim, isso no CNAB240 o CNAB400 não uso.

Boa tarde, @Juliana Tamizou tive o problema com os zeros também na posição posição 33 à 52 do Header do Arquivo, mandei um e-mail para a pessoa que me atende e ele passou que tem que ser com o spaço mesmo. No fonte alterei de StringOfChar('0', 20) + para StringOfChar(' ', 20) + e esta funcionando corretamente o envio pelo programa do cedente. Segui resposta do e-mail: Bom dia Lair tudo bem? De acordo com informações que tenho o layout não foi alterado, então você pode continuar a enviar espaços em brancos na posição 33 tamanho 20. Fiz um teste aqui e com espaços em brancos processou normalmente. Caso ocorra erro por favor me envie o Print da tela que vou entrar em contato com o Sicoob para verificar o que houve. Atenciosamente, Evandro

Entendi muito obrigado pela ajuda.