Advpl pedido

Disponível somente no TrabalhosFeitos
  • Páginas : 6 (1253 palavras )
  • Download(s) : 0
  • Publicado : 27 de agosto de 2012
Ler documento completo
Amostra do texto
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{"C5_XREGESP",Substr(cLinA,673,1) ,Nil},; // Regime Especial ?
{"C5_XTOTAL",Val(Substr(cLinA,53,16)) ,Nil},; // Total do pedido
{"C5_CHEBOL",Substr(cLinA,34,1) ,Nil},; // Cheque / boleta / antecipação
{"C5_GERAFIN",/*Substr(cLinA,560,1)*/"N" ,Nil},; // Ant.Imposto
{"C5_XMODSEG","1" ,Nil},; // Modo do seguro
{"C5_VEND1",Substr(cLinA,109,6) ,Nil},; // Código do vendedor{"C5_PARC1",Val(Substr(cLinA,125,12)) ,Nil},; // Valor da parcela 1
{"C5_DIA1",Substr(cLinA,138,3) ,Nil},; // Dia da parcela 1
{"C5_DATA1",StoD(Substr(cLinA,142,8)) ,Nil},; // Data da parcela 1
{"C5_PARC2",Val(Substr(cLinA,151,12)) ,Nil},; // Valor da parcela 2
{"C5_DIA2",Substr(cLinA,173,3) ,Nil},; // Dia da parcela 2
{"C5_DATA2",StoD(Substr(cLinA,164,8)) ,Nil},;// Data da parcela 2
{"C5_PARC3",Val(Substr(cLinA,177,12)) ,Nil},; // Valor da parcela 3
{"C5_DIA3",Substr(cLinA,199,3) ,Nil},; // Dia da parcela 3
{"C5_DATA3",StoD(Substr(cLinA,190,8)) ,Nil},; // Data da parcela 3
{"C5_PARC4",Val(Substr(cLinA,203,12)) ,Nil},; // Valor da parcela 4
{"C5_DIA4",Substr(cLinA,225,3) ,Nil},; // Dia da parcela4{"C5_XCGC",Substr(cLinA,229,14) ,Nil},; // Cnpj
{"C5_DATA4",StoD(Substr(cLinA,216,8)) ,Nil},; // Data da parcela 4
{"C5_FRETE",Val(Substr(cLinA,83,12)) ,Nil},; // Valor do frete
{"C5_FREMB",Val(Substr(cLinA,96,12)) ,Nil},; // Frete embutido
{"C5_SEGURO",Val(Substr(cLinA,70,12)) ,Nil}} // Valor do seguro{"C5_XNPEDCL",Substr(cLinA,675,15) ,Nil},; // Número Pedido Cliente {"C5_OBSPALM",Substr(cLinA,243,60),Nil},; // Obs Palm {"C5_MOTOR",Substr(cLinA,304,255) ,Nil}} // Motorista

// MSExecAuto({|x,y,z|Mata410(x,y,z)},aCabPv,{aItemPV1,aItemPV2},nOpc)
Ft_FSkip()
ElseIf Substr(cLinA,0,1) == "D"
//Items
aItemPV1:={ {"C6_NUM",Substr(cLinA,2,6) ,Nil},; // Numero do Pedido
{"C6_ITEM",Substr(cLinA,9,2) ,Nil},; // Numero do Item no Pedido
{"C6_PRODUTO",Substr(cLinA,12,15)...
tracking img