Programador Dataflex

[visual flex]

ola. bom dia! Pessoal alguém dos Senhores programa na Linguagem Dataflex, ? 

[Daniel Simoes]

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?

[visual flex]

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

[Diego Foliene]

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