Alberto

Estou com o mesmo problema. Observei que a TAG competência não está no arquivo RPS gerado antes do envio para o WS. O provedor GINFES utiliza a procedure GerarXML_ABRASF_V1 que não possui a TAG. Tentei incluir mais deu erro na validação do schema por que a tag não é esperada, pelo jeito o problema está na implementação do provedor.

Anexe o ZIP que você está enviando para que possa verificar.

Me deparei com o mesmo problema. O cliente já estava emitindo os boletos por outro sistema e ao emitir pelo meu ocorreu as diferenças acima. Coloquei o mesmo código do GutoSantos e bateu todos os dígitos com o que ele já emitia. Abaixo segue a especificação do código de barras para cobrança sem registro: Especificação do Código de Barras para Bloquetos de Cobrança Sem Registro SICOB - Nosso Número 16 posições Posição Tamanho Picture Conteúdo 01 – 03 03 9 (3) Identificação do banco (104) 04 – 04 01 9 Código da moeda (9 - Real) 05 – 05 01 9 Dígito Verificador Geral do Código de Barras 06 – 09 04 9 Fator de Vencimento (Anexo II) 10 – 19 10 9 (8) V99 Valor do Documento 20 – 24 05 9 (5) Código do Cedente - fornecido pela CAIXA 25 – 28 04 9 (4) Agência de vinculação do Cedente 29 – 30 02 9 (2) Constante “87” 31 – 44 14 9 (14) Nosso Número do Cliente com 14 posições

Um problema na sua rotina que percebi é o hash que você está fazendo o arquivo xml e na verdade é do arquivo zip, eu faço assim: shash := MD5DigestToStr(MD5File('SNGPC.zip'));

E bota complicado nisso: Aqui em Alagoas você tem que fazer a alteração, enviar toda a documentação e certidões novamente para a SEFAZ, que vai te dar um protocolo e você deve esperar ser publicado no diário oficial, aprovado e publicado você deve enviar a versão para o cliente, que tem que emitir o ID-PAF junto com a memoria das ultimas reduções, fazer um registro no livro de ocorrência, gerar um termo de instalação com firma reconhecida e assinado pelo cliente e a software house e encaminhar para a SEFAZ. Acredito que nenhuma outra faz isso!!

Anexa o arquivo zip que eu tento ver.

gigainfo, talvez o problema esteja no compactação, eu utilizo a seguinte rotina: unit System.zip; ZipFile := TZipFile.Create; try ZipFile.Open('SNGPC.zip', zmWrite); ZipFile.add('SNGPC.xml'); ZipFile.Close; finally ZipFile.Free; end;

Estou utilizando o Delphi XE2, fiz assim: var arquivoZip: TByteDynArray; begin arquivoZip := FIleToByteArray('SNGPC.zip'); shash := MD5DigestToStr(MD5File('SNGPC.zip')); Resp := ws.EnviaArquivoSNGPC( edtUsuario.Text, edtSenha.Text, arq, shash);

Quem faz a validação é o próprio banco, geralmente eles pedem para seu cliente emitir e enviar um boleto de teste. Para validar o arquivo remessa, gere e envie para o banco pelo sistema fornecido por eles para transmissão do arquivo. Você receberá o arquivo de retorno do banco.

Olá Francisco, Já consegui enviar e validar o inventário inicial e as movimentações de entrada e saída. Precisando de ajuda é só falar.

Só para esclarecimento, não são novas CST´s mas sim novas "Origens" da mercadoria. A CST é os dois últimos dígitos, o primeiro é a origem da mercadoria que passou de 1, 2, 3 para de 1 a 7, os dois últimos dígitos continuam os mesmos. Espero ter ajudado.

Segue em anexo a unit com a procedure LerArquivo240 implementada. ACBrBancoItau.pas

Bom dia, Tenho um cliente que vai utilizar o layout padrão 240 do Itau e verifiquei que ainda não está implementado o retorno no ACBR, vou fazer a implementação e validar os arquivos.

Eu tenho interesse, se puder anexe aqui no forum que qualquer pode baixar. hehe

Mesma coisa aqui. Como são parâmetros de descrição troquei por aspas para poder compilar. Isso apenas até sair a solução.

A Escol Sistemas possui vaga para programador Delphi para trabalhar em Maceió/AL. Requisitos: Experiencia em Delphi Desejável: Conhecimentos em sistema ERP Contatos: [email protected] [email protected]

Segue a unit em anexo. ACBrCaixaEconomica.pas

Aproveitando o tópico segue as correções que fiz para ajustar a leitura do arquivo de retorno SIGCB: unit ACBrCaixaEconomica; procedure TACBrCaixaEconomica.LerRetorno240(ARetorno: TStringList); {Segmento T} if Copy(Linha,14,1)= 'T' then begin SeuNumero := copy(Linha,59,11); NumeroDocumento := copy(Linha,59,11); OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef( copy(Linha,16,2),0)); //05 = Liquidação Sem Registro Vencimento := StringToDateTimeDef( Copy(Linha,74,2)+'/'+ Copy(Linha,76,2)+'/'+ - Copy(Linha,78,2),0, 'DD/MM/YY' ); + Copy(Linha,80,2),0, 'DD/MM/YY' ); ValorDocumento := StrToFloatDef(Copy(Linha,82,15),0)/100; ValorDespesaCobranca := StrToFloatDef(Copy(Linha,199,15),0)/100; - NossoNumero := Copy(Linha,40,11); + NossoNumero := Copy(Linha,42,15); Carteira := Copy(Linha,40,2); end

Bom dia, Estou lendo o arquivo de retorno da caixa SIGCB e verifiquei que a data de vencimento e o nosso número estão errados: Detalhado no Manual: 13.3T | Nosso Número | Identificação do Título no Banco | 42 | 56 | 15 - Num *G069 16.3T | Vencimento | Data de Vencimento do Título | 74 | 81 | 8 - Num *C012 Código original: {Segmento T} if Copy(Linha,14,1)= 'T' then begin SeuNumero := copy(Linha,59,11); NumeroDocumento := copy(Linha,59,11); OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef( copy(Linha,16,2),0)); //05 = Liquidação Sem Registro Vencimento := StringToDateTimeDef( Copy(Linha,74,2)+'/'+ Copy(Linha,76,2)+'/'+ Copy(Linha,78,2),0, 'DD/MM/YY' ); ValorDocumento := StrToFloatDef(Copy(Linha,82,15),0)/100; ValorDespesaCobranca := StrToFloatDef(Copy(Linha,199,15),0)/100; NossoNumero := Copy(Linha,40,11); Carteira := Copy(Linha,40,2); end Nosso Número: Veja que o manual diz que o nosso numero tem 15 posições iniciando do 40, mas no fonte está pegando 11 dígitos a partir da posição 40 que é a modalidade. Vencimento: Está pegando os 2 dígitos do ano da posição 78 e deveria pegar da posição 80 ou 4 dígitos a partir da 78. Fiz essa alterações e funcionou corretamente.