Eduardo Brigoni

Boa tarde Mauricio Elias, isso é na hora de dar entrada no estoque ou na venda do produto?

Boa tarde, também estou perdido pra fazer esses cálculos de icms efetivo.

Oi Sérgio Assunção, sei que é muito tempo desde essa dúvida mas fiz exatamente como você disse e funcionou perfeitamente, porém não precisei compartilhar a impressora. Abraço valeu.

Simplesmente show.

Boa tarde finoue, já verifiquei que não esta saindo o código da carteira no código de barras e nem na linha digitável. Segue o código: with ACBrTitulo.ACBrBoleto do begin DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo); FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); CodigoBarras := '033'+//Identificação do Banco '9'+//Código da moeda padrão 9 REAL FatorVencimento +//Fator de vendicmento IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10)+//Valor nominal '9'+// Fixo 9 PadLeft(trim(Cedente.CodigoCedente),7,'0')+//Código do cedente PadLeft(ACBrTitulo.NossoNumero + DigitoNossoNumero, 13,'0')+//Nosso numero com DV '0'+//IOF – Seguradoras (Se 7% informar 7. Limitado a 9%) PadLeft(trim(Cedente.Modalidade),3,'0');//Carteira 101 DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result:= '033' + '9'+ DigitoCodBarras + Copy(CodigoBarras,5,39); Segue o manual de código de barras de Janeiro de 2015, se você olhar na página 6 vai ver que está faltando o DV do código de barras no código e já fazendo um teste. 20150121_Layout de Código de Barras Santander Janeiro 2015v 29.pdf

Boa tarde finoue, ele já é preenchido direto no meu código pra que o usuario não coloque nada errado. Mas obrigado. ACBrBoleto.Cedente.Modalidade := '101'.

Boa tarde Pessoal, estou homologando no Santander e deixo o novo manual de Março de 2017 Layout CNAB400. H7800 Layout CNAB 400 com registro (padrão 353) março 2017 v 2.15.pdf

Bom dia pessoal, eu sempre tenho que verificar essas linhas 738 e 752 do ACBrBancoSantander.pas toda vez que atualizo, e sempre tenho que trocar pelo seguinte: Cedente.Complemento + Space(6)//Complemento O Santander sempre nos passa o complemento da seguinte forma "I31", na minha tela de configuração neste campo eu coloco exatamente o que o banco me passa. Estou fazendo mais 4 homologações no Santander e tenho 10 lojas que estão rodando sem problema, mas na última atualização a linha digitável não esta indo o código da carteira que sempre uso o 101 na minha tela de configuração do sistema. Segue a resposta do banco. Linha Digitável Enviado 0339939936 22100000508 03385900000 9 71870000017918 Esperado 0339939936 22100000508 03385901016 3 71870000017918.

Me ajudou muito, obrigado, abraço.

Bom dia Pessoal, fiz os testes criando o componente e instanciando ele quando eu entro na rotina para enviar a nota. Obrigado a todos pela ajuda. No CarregaComponente NFE := TACBrNFe.Create(Self); DF := TACBrNFeDANFEFR.Create(Self); NFE.DANFE := DF; No DestroiComponente if Assigned(NFE) then NFE.Destroy; if Assigned(DF) then DF.Destroy; Rotina de Envio da Nota if(ValidaNfe = False) then Exit else begin dm_principal.CarregaComponente; //Aqui crio o componente dm_principal.DF.FastFile := TConfig.instancia.Danfe.FastFile; dm_principal.NFE.NotasFiscais.Clear; //Alimenta o componente if(dm_principal.GeraNfe)then //passo 1 begin dm_principal.NFE.NotasFiscais.Items[0].GravarXML(); arquivo := dm_principal.NFE.NotasFiscais.Items[0].NomeArq; //Enviar if(dm_principal.NFE.Enviar(1,False))then begin dm_principal.NFE.NotasFiscais.Clear; dm_principal.NFE.NotasFiscais.LoadFromFile(arquivo); dm_principal.NFE.Consultar; if(RespostaEnviar)then //Aqui gravo no banco e faço a impressão se cStat = 100 begin if(dm_principal.NFE.WebServices.Retorno.xMotivo = 'Autorizado o uso da NF-e')then FinalizaNota else if(Copy(dm_principal.NFE.WebServices.Retorno.xMotivo,0,29) = 'Rejeicao: Duplicidade de NF-e')then MessageDlg('Tente novamente',mtWarning, [mbOK],0) else dm_principal.VoltaNumeroNfe; end else dm_principal.VoltaNumeroNfe; end else dm_principal.VoltaNumeroNfe; end else ac_cancelar.Execute; end; dm_principal.DestroiComponente; Aqui destruo o componente

Eu coloqueis os passos daquela forma mas eu não fazia assim eu simplesmente alimentava o componente e enviava e esperava pelo cStat = 100 para gravar e ja acontecia isso. Mas vou tentar o seguinte vou criar o componente ao invés de colocar no form e depois do envio da nota eu dou um componente.free talvez assim funcione.

Pois é fiz dessa forma que vc falou e ainda continua. Primeira nota autoriza normal, depois desativo a rede e ela autoriza do mesmo jeito.

O Valida e Assina já esta dentro do Enviar. Mas vou tentar. Valeu

Mas é exatamente o que faço e continua o problema, hoje o cliente reclamou de novo e dessa vez ele emitiu uma nota e não ficou gravado no banco. No meu caso só salvo se o cstat = 100.

Pois é, mesmo dando acbr1.notasfiscais.clear hoje aconteceu de novo em produção.