Advpl pedido

1241 palavras 6 páginas
User Function IncPed()
Local aCabPV := {}
Local aItemPV1:= {}
Local aItemPV2:= {}
Local nOpc := 3 // inclusao
Private lMsHelpAuto := .t.
Private lMsErroAuto := .f.
//sArq := strP+StrZero(iCont,5) xArquivo:= "c:\Import\ImpPedido.txt" nHdl := Ft_FUse(AllTrim(xArquivo))
Ft_FGoTop()
Begin Transaction
While !Ft_FEof() dbselectarea("SC5") dbSetOrder(1) dbseek(xfilial("SC5")+"260000") xtab := C5_TABELA cLinA := Ft_FReadLn() xNum := NextNumero("SC5",2,"C5_NUM",.T.) If Substr(cLinA,0,1) == "H" //Cabecalho aCabPV:={{"C5_FILIAL" ,cFilAnt ,Nil},; // Filial {"C5_XTPPED",Substr(cLinA,2,1) ,Nil},; {"C5_NUM" ,/*Substr(cLinA,4,6)*/Alltrim(xNum) ,Nil},; // Numero do pedido {"C5_CLIENTE",Substr(cLinA,11,6) ,Nil},; // Codigo do cliente {"C5_CLIENT",Substr(cLinA,11,6) ,Nil},; // Codigo do cliente de entrega {"C5_LOJAENT",Substr(cLinA,18,2) ,Nil},; // Loja para entrada {"C5_LOJACLI", Substr(cLinA,21,2) ,Nil},; // Loja do cliente {"C5_XOP","01",Nil},; {"C5_TIPO",Substr(cLinA,26,1) ,Nil},; // Tipo do pedido {"C5_TIPOCLI",Substr(cLinA,24,1) ,Nil},; // Tipo do cliente {"C5_TABELA",/*Substr(cLinA,49,3)*/ xtab ,Nil},; // Código tabela de preço {"C5_XENTREG",StoD(Substr(cLinA,116,8)) ,Nil},; // Data da entrega {"C5_EMISSAO",dDataBase ,Nil},; // Data de Emissão {"C5_TPFRETE","F" ,Nil},; {"C5_XMODCAR",Substr(cLinA,28,1) ,Nil},; // Modo da carga

Relacionados

  • Qualificadores e Ganhadores de pedido
    2359 palavras | 10 páginas
  • CAUTELAR PEDIDO DE PET SCAN
    2601 palavras | 11 páginas
  • Programação advpl
    2211 palavras | 9 páginas
  • MODELO PEDIDO
    5339 palavras | 22 páginas
  • PEDIDO DE RECONSIDERA O WENDERSON
    611 palavras | 3 páginas
  • Modelo pedido de reconsideração
    1334 palavras | 6 páginas
  • Replica e contestação pedido contraposto
    1677 palavras | 7 páginas
  • PEDIDO DE ALVARA
    1909 palavras | 8 páginas