Agnaldo Prates

Via programação no Script ou alterar conforme a imagem anexa. Esta linha ocorre quando há mais de cinco duplicatas, para fechar a sexta conforme mostra a imagem.

O XML já foi gerado. Try AcbrNFe1.NotasFiscais.GerarNFe; Except Exit; End; Só executa o comando abaixo se gerar o XML. cChave := OnlyNumber(NFe.NotasFiscais.Items[0].NFe.infNFe.id) + '-NFe.xml';

Depois de gerar, basta usar: cChave := OnlyNumber(NFe.NotasFiscais.Items[0].NFe.infNFe.id) + '-NFe.xml';

Não. Tanto o fabricante quanto o distribuidor. Se informado IndEscala = 'N', deverá obrigatoriamente ser informado o CNPJ de quem produziu, isso para o estabelecimento distribuidor. Neste caso será de quem pertence o produto a ser comercializado, por exemplo: Uma montadora vende um carro, o motor e câmbio são fabricados por um terceiro, neste caso, o produto acabado será da montadora, portanto dela será o CNPJ a ser informado. cBenef = é o código de Benefício Fiscal utilizado pela UF aplicado ao tem. Este código deverá ser o mesmo adotado na EFD e outras declarações, nas Unidade da Federação respectiva. Observações: O contribuinte optante pelo regime do Simples Nacional, deve possuir apenas um estabelecimento apresentando suas mercadorias fabricadas em escala industrial não relevante, nos termos do § 8º do art. 13 da Lei Complementar nº 123/06, para fins de inaplicabilidade dos regimes de substituição tributária ou de antecipação do recolhimento do imposto com encerramento de tributação, relativos às operações subsequentes, atendendo ao disposto no CONVENIO ICMS 52/17 previsto cláusula sexta, § 2º e cláusula nona, V.

Neste post existe um tema que tem relação com sua dúvida:

Boa tarde. Você poderia descrever qual linha indesejada? Sinceramente o que vejo é apenas uma linha vertical no final da banda "DUPLICATAS", sendo que pode ser resolvido colocando a banda "DUPLICATAS" do mesmo tamanho da banda "DADOS DA FATURA". Ao meu humilde pensar, está correta a impressão, exceto o final que parece um delimitador de parcelas que também pode ser suprimento caso a quantidade de parcelas seja igual a cinco.

Este demo não está no svn, eu alterei e guardo em uma pasta separada justamente para testar os retornos dos bancos, no entanto, quanto à sua dúvida, no caso da caixa econômica deve haver dois retornos sim, um informando sobre a recepção do arquivo de remessa outro relativo às liquidações. Imagino que seja isso.

Não há o que agradecer, naquilo que podemos ajudar será sempre um imenso prazer. As units, ACBrBoleto e ACBrBancoBancoob eu não atualizo a um bom tempo, claro, quanto há mudanças eu apenas as aplico nestas units manualmente visto que como trata-se de cooperativas, embora deveriam manter um padrão nos seus arquivos, tanto de remessa quanto de retorno, isso não condiz com a realidade de muitas delas, inclusive versão do layout, tamanho de conta em fim, o que aplica para uma as vezes não é o mesmo para outra cooperativa. Lembre-se de estas units que mantenho para o Bancoob são as mesmas do ACBrBoleto, somente não aplico certas alterações propostas por ser incompatíveis em alguns casos pontuais.

Bom dia. Feitas manualmente na minha unit.

É possível. Faça o teste removendo os arquivos marcados conforme a imagem abaixo. Isso deve resolver.

Tópico movido para o local correto.

De quais produtos?

Creio que é não informar ACBrECf.DecimaisPreco, se informar deve ser atribuído um valor, exemplo: ACBrECf.DecimaisPreco := 3. Realmente to tipo é inteiro. Vide linhas, 646 e 647 da Unit ACBrECF.pas no procedimento VendeItemEx(). CasasDecimaisQtde: Integer = 0; // Se 0 assume o valor de DecimaisQtd CasasDecimaisValor: Integer = 0; // Se 0 assume o valor de DecimaisPreco

Use assim, que quando mudar o tamanho da conta não precisa mudar na unit. case TamanhoConta of 8: rConta := trim(Copy(ARetorno[0],63,TamanhoConta)); 10: rConta := trim(Copy(ARetorno[0],61,TamanhoConta)); 12: rConta := trim(Copy(ARetorno[0],59,TamanhoConta)); end;

No meu está assim: rConta := trim(Copy(ARetorno[0],63,TamanhoConta)); Note que é 63 e não 59.

O tamanho da conta deve ser 8 está 0000000023852 deverá ficar assim 00023852.

Obrigado pelo arquivo. A primeira coisa a ser feita é configurar corretamente os dados no componente. O tamanho da conta do arquivo é 8, informar no componente a conta da seguinte forma: 23582, ou seja, sem os zeros à esquerda, fazer as seguintes mudanças na unit ACBrBancoBancoob.pas Linha : 89 fpTamanhoConta := 8; Linha : 470 trocar: de: if ( rConta + rDigitoConta <> OnlyNumber(Cedente.Conta + Cedente.ContaDigito)) then para: if ( OnlyNumber(rConta + rDigitoConta) <> OnlyNumber(Cedente.Conta + Cedente.ContaDigito)) then

Basta gerar um no ACBrNFEDemo, inclusive o demo já serve como uma excelente ferramenta de auxilio. Um xml de outro estado pode não responder às suas expectativas o que poderia contribuir de forma negativa para sua compreensão do mecanismo de trabalho, assim eu penso.

Me parece que existe algo duplicado na parte do código que você informou, mas isso não é o caso. Você tem um arquivo de retorno que possa disponibilizar para testarmos?

É muito provável que a cooperativa que você está gerando ainda está utilizando o tamanho da conta fpTamanhoConta nesta mesma unit como 12, experimente usar 8 ou 10, afinal, se houvesse um padrão seria bem cômodo mas não é.

Teste com este Demo em anexo. AcbrBoletoDemo.rar

O procedimento para alimentar o componente na hora da remessa é o mesmo que é feito na hora da geração do boleto.

Eu já cansei desse muda de 8 para 12, de 12 para 8, então modifiquei o componente que eu uso.

Verifique as configurações do de firewall do seu pc, veja se o TortoiseSVN está habilitado para conexão. Tentei umas três vezes e funcionou normalmente.

Eu criei uma função para isso. tb.Close; tb.SQL.Clear; tb.SQL.ADD('SELECT COALESCE(GEN_ID(' + sGene + ',' + IntToStr (Incremento) + '),0) AS CODIGO FROM RDB$DATABASE'); tb.Prepare; tb.Open; if tb.FieldByname('CODIGO').AsInteger = 0 then result := 1 Else result := tb.FieldByname('CODIGO').AsInteger; tb.Close; Nunca tive problemas com concorrência de usuários. uso nCodigodoPeidido := MAX_GENERATOR( 'NOME_GENERATOR',1) se quero incrementar, se quero pegar apenas o último, nCodigodoPeidido := MAX_GENERATOR( 'NOME_GENERATOR',0)