Membros Pro visual flex Postado 2 Maio Membros Pro Compartilhar Postado 2 Maio ola. bom dia! Pessoal alguém dos Senhores programa na Linguagem Dataflex, ? Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 2 Maio Fundadores Compartilhar Postado 2 Maio Olá @visual flex, Da nossa equipe não temos um especialista nessa linguagem... Mas podemos lhe ajudar na integração com o ACBrMonitorPLUS... Você está com alguma dúvida específica? Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro visual flex Postado 2 Maio Autor Membros Pro Compartilhar Postado 2 Maio 9 minutos atrás, Daniel Simoes disse: Olá @visual flex, Da nossa equipe não temos um especialista nessa linguagem... Mas podemos lhe ajudar na integração com o ACBrMonitorPLUS... Você está com alguma dúvida específica? ...bom dia! sim estou. na geracao das DUPLICATAS , eu consigo fazer com que "uma" seja alimentada no xml, porem mais de uma nao.. vou mostar o comando begin If (nfe.snFatCobr <> "") begin Integer Iduplicatas string sparcela number nvalorp date ddatap string sqtidadeparcelas get value of oNfe_Prestacao to sqtidadeparcelas Clear dupnota//dupnfe Move nfe.Numero to dupnota.Notafiscal //.iIdNotaFisc Find ge dupnota by Index.1 //ge While (Found and nfe.Numero = dupnota.Notafiscal) move dupnota.Parcela to sparcela move dupnota.Valor to nvalorp move dupnota.Data to ddatap string snumerofatura number nvalororiginal nvalorliquido nvalordesconto move NFE.Snfatcobr to snumerofatura Trim snumerofatura to snumerofatura move Nfe.Nvdesccobr to nvalordesconto Trim nvalordesconto to nvalordesconto move Nfe.Nvorigcobr to nvalorliquido trim nvalorliquido to nvalorliquido move Nfe.Nvorigcobr to nvalororiginal Trim nvalororiginal to nvalororiginal writeln "[Fatura]" writeln "Numero=" snumerofatura writeln "ValorOriginal=" nvalororiginal writeln "ValorLiquido=" nvalorliquido writeln "[Duplicata001]" writeln "Numero=" sparcela//dupnota.Parcela writeln "DataVencimento=" ddatap //dupnota.Data writeln "Valor=" nvalorp//dupnota.Valor Increment Iduplicatas Find gt dupnota by Index.1 //ge Loop end end Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado 2 Maio Consultores Compartilhar Postado 2 Maio Bom dia! 25 minutos atrás, visual flex disse: ...bom dia! sim estou. na geracao das DUPLICATAS , eu consigo fazer com que "uma" seja alimentada no xml, porem mais de uma nao.. vou mostar o comando begin If (nfe.snFatCobr <> "") begin Integer Iduplicatas string sparcela number nvalorp date ddatap string sqtidadeparcelas get value of oNfe_Prestacao to sqtidadeparcelas Clear dupnota//dupnfe Move nfe.Numero to dupnota.Notafiscal //.iIdNotaFisc Find ge dupnota by Index.1 //ge While (Found and nfe.Numero = dupnota.Notafiscal) move dupnota.Parcela to sparcela move dupnota.Valor to nvalorp move dupnota.Data to ddatap string snumerofatura number nvalororiginal nvalorliquido nvalordesconto move NFE.Snfatcobr to snumerofatura Trim snumerofatura to snumerofatura move Nfe.Nvdesccobr to nvalordesconto Trim nvalordesconto to nvalordesconto move Nfe.Nvorigcobr to nvalorliquido trim nvalorliquido to nvalorliquido move Nfe.Nvorigcobr to nvalororiginal Trim nvalororiginal to nvalororiginal writeln "[Fatura]" writeln "Numero=" snumerofatura writeln "ValorOriginal=" nvalororiginal writeln "ValorLiquido=" nvalorliquido writeln "[Duplicata001]" writeln "Numero=" sparcela//dupnota.Parcela writeln "DataVencimento=" ddatap //dupnota.Data writeln "Valor=" nvalorp//dupnota.Valor Increment Iduplicatas Find gt dupnota by Index.1 //ge Loop end end Não sou especialista na sua linguagem, mas pelo que pude entender, o código que disponibilizou é o responsável pela geração do arquivo NFe.INI que você alimenta no comando que cria e envia a NFe no Monitor, correto? Sendo assim, acredito que o seu problema seja esse trecho: 26 minutos atrás, visual flex disse: writeln "[Duplicata001]" writeln "Numero=" sparcela//dupnota.Parcela writeln "DataVencimento=" ddatap //dupnota.Data writeln "Valor=" nvalorp//dupnota.Valor Note que você fixou a seção "[Duplicata001]", então toda iteração do laço vai ter esse mesmo valor. O correto seria fazer algo como: Integer Contador Contador = 1 While (Found and nfe.Numero = dupnota.Notafiscal) begin String NumeroDuplicata NumeroDuplicata = Format$(Contador, "000") //.... writeLn "[Duplicata" + NumeroDuplicata Contador = Contador + 1 End 3 Diego FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora