VXI02ILJ - Manipulação dos vetores de integração.

Descrição

Ponto de Entrada utilizado localizado na rotina Atendimento Modelo 2 (VEIXA018) para manipular os vetores _aCab / _aItens / _aParcela , referentes a integração entre o Atendimento e o Venda Direta.

Observações

Exemplos

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ VXI02ILJ º Autor ³ MIL º Data ³ 11/10/12 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Ponto de Entrada utilizado para manipular os vetores º±±
±±º ³ referente a integração entre o modulo de Veiculo com º±±
±±º ³ o Venda Direta. º±±
±±º ³ _aCab º±±
±±º ³ _aItens º±±
±±º ³ _aParcela º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Veiculos º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VXI02ILJ()
MsgInfo("Ponto de Entrada VXI02ILJ executado com sucesso!","Atenção")
Return()

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

/////////////////////////////////
// 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

Variáveis

Programa Fonte

VEIXI002.PRW