sexta-feira, 29 de novembro de 2013

Programa Exporta Pedido de Vendas ( Datasul )


define variable de-tot-liberado like ext-ped-venda.vl-lim-fatur no-undo.
define variable de-tot-faturado like nota-fiscal.vl-tot-nota no-undo.
define variable de-tot-saldo-liberado like ext-ped-venda.vl-lim-fatur no-undo.  

find first ped-venda where
    ped-venda.nr-pedido = 5656 no-lock no-error.
  
  assign de-tot-liberado = 0
         de-tot-faturado = 0
         de-tot-saldo-liberado = 0.

  for each movto-cred-lim-fatur where 
      movto-cred-lim-fatur.nome-abrev = ped-venda.nome-abrev and
      movto-cred-lim-fatur.nr-pedcli  = ped-venda.nr-pedcli  no-lock,
      first nota-fiscal where
      nota-fiscal.cod-estabel = movto-cred-lim-fatur.cod-estabel and
      nota-fiscal.serie       = movto-cred-lim-fatur.serie       and
      nota-fiscal.nr-nota-fis = movto-cred-lim-fatur.nr-nota-fis no-lock:
      
      disp movto-cred-lim-fatur.dt-apr-cred
           movto-cred-lim-fatur.nr-nota-fis
           nota-fiscal.dt-emis-nota
           nota-fiscal.vl-tot-nota
           movto-cred-lim-fatur.vl-lim-fatur.

      assign de-tot-liberado = de-tot-liberado + movto-cred-lim-fatur.vl-lim-fatur
             de-tot-faturado = de-tot-faturado + nota-fiscal.vl-tot-nota.
  end.

  find first ext-ped-venda of ped-venda no-error.
  if avail ext-ped-venda then
     assign de-tot-saldo-liberado = (de-tot-liberado - de-tot-faturado) + ext-ped-venda.vl-lim-fatur-ori.

  disp /*de-tot-liberado de-tot-faturado*/
       ext-ped-venda.qt-lim-fatur label "Qtd Aprovada"
       ext-ped-venda.vl-lim-fatur  label "Vl. Aprovado"
       ext-ped-venda.qt-saldo-lim-fatur
       ext-ped-venda.vl-saldo-lim-fatur
       ext-ped-venda.qt-lim-fatur-ori  label "Qtd Liberada"
       ext-ped-venda.vl-lim-fatur-ori  label "Vl. Liberado" 
       with 1 column.

Nenhum comentário:

Postar um comentário