///////////////////////////////// // Gerar Pedido/Venda no Loja // ///////////////////////////////// For ni := 1 to len(aParcelE1) aAdd(_aParcela,{{"L4_DATA" , aParcelE1ni,10 ,NIL},; {"L4_VALOR" , aParcelE1ni,11 ,NIL},; {"L4_FORMA" , Padr(aParcelE1ni,04,TamSX3("L4_FORMA")1) ,NIL},; {"L4_ADMINIS" , " " ,NIL},; {"L4_FORMAID" , " " ,NIL},; {"L4_MOEDA" , 0 ,NIL}}) Next ///////////////////////////////////////////////////////////////////////////////// // Carregar Vetores para Integracao SLQ (SL1) / SLR (SL2) / SL4 // ///////////////////////////////////////////////////////////////////////////////// _aCab:= {{"LQ_VEND" , cVenVDi ,NIL},; {"LQ_COMIS" , 0 ,NIL},; {"LQ_CLIENTE" , SA1->A1_COD ,NIL},; {"LQ_LOJA" , SA1->A1_LOJA ,NIL},; {"LQ_TIPOCLI" , SA1->A1_TIPO ,NIL},; {"LQ_VLRTOT" , nVlrLoja ,NIL},; {"LQ_DESCONT" , 0 ,NIL},; {"LQ_VLRLIQ" , nVlrLoja ,NIL},; {"LQ_NROPCLI" , " " ,NIL},; {"LQ_DTLIM" , dDatabase+30 ,NIL},; {"LQ_DOC" , "" ,NIL},; {"LQ_SERIE" , "" ,NIL},; {"LQ_PDV" , "0001 " ,NIL},; {"LQ_EMISNF" , dDatabase ,NIL},; {"LQ_VALBRUT" , nVlrLoja ,NIL},; {"LQ_VALMERC" , nVlrLoja ,NIL},; {"LQ_TIPO" , "V" ,NIL},; {"LQ_DESCNF" , 0 ,NIL},; {"LQ_OPERADO" , xNumCaixa() ,NIL},; {"LQ_PARCELA" , 1 ,NIL},; {"LQ_CONDPG" , VV0->VV0_FORPAG ,NIL},; {"LQ_FORMPG" , "R$" ,NIL},; {"LQ_EMISSAO" , dDatabase ,NIL},; {"LQ_NUMCFIS" , "" ,NIL},; {"LQ_IMPRIME" , "1S " ,NIL},; {"LQ_VLRDEBI" , 0 ,NIL},; {"LQ_HORA" , "" ,NIL},; {"LQ_NUMMOV" ,"1 " ,NIL},; {"LQ_ORIGEM" , "V" ,NIL},; {"LQ_VEIPESQ" , VV9->VV9_NUMATE ,NIL},; {"AUTRESERVA" ,cAutReser ,NIL}} aAdd(_aItem,{ {"LR_FILIAL" , xFilial("SL2") ,NIL},; {"LR_PRODUTO" , SB1->B1_COD ,NIL},; {"LR_TABELA" , "1" ,NIL},; {"LR_QUANT" , 1 ,NIL},; {"LR_UM" , "UN" ,NIL},; {"LR_VRUNIT" , nVlrLoja ,NIL},; {"LR_DESC" , 0 ,NIL},; {"LR_VALDESC" , 0 ,NIL},; {"LR_DOC" , "" ,NIL},; {"LR_SERIE" , "" ,NIL},; {"LR_PDV" , "0001" ,NIL},; {"LR_DESCPRO" , 0 ,NIL},; {"LR_ENTREGA" , "3" ,NIL},; {"LR_VEND" , cVenVDi ,NIL}}) ///////////////////////////////////////////////////////////////////////////////////// // Ponto de Entrada que possibilita alterar os vetores: _aCab , _aItem , _aParcela // ///////////////////////////////////////////////////////////////////////////////////// If ExistBlock("VXI02ILJ") ExecBlock("VXI02ILJ",.f.,.f.) EndIf |