Advpl pedido
1253 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 {"C5_XMODFRT",Substr(cLinA,30,1) ,Nil},; // Modo do frete {"C5_XTPENT",Substr(cLinA,32,1) ,Nil},; // Tipo de Entrega - Data da entrega {"C5_CONDPAG",Substr(cLinA,45,3) ,Nil},; // Condição de pagamento {"C5_XHORENT",Substr(cLinA,564,5) ,Nil},; // Hora Entrega {"C5_XLENTRE",Substr(cLinA,570,100) ,Nil},; // Local Entrega {"C5_XPADRAO",Substr(cLinA,562,1) ,Nil},; // Fora Padrao? {"C5_XRRECEB",Substr(cLinA,671,1) ,Nil},; // Restricao Recebimento