Perguntas Exemplo MSEXECAUTO LOJA701

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ
»±±±±ºPrograma ³MyLOJA701 ºAutor ³Vendas Clientes º Data ³ 03/02/2011 º
±±±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍ
¹±±±±ºDesc. ³ Efetua o teste do ExecAuto do Venda Assistida (LOJA701).
º±±±±º ³ A chamada desta função deverá ser adicionada ao menu do Vendaº±±
±±º ³ Assistida para ser testado.
º±±±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±±±º
Parametro ³ Nenhum. º±±±±ÌÍÍÍÍÍÍÍÍÍÍ
ØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
¹±±±±ºUso ³ Loja701
º±±±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
¼±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/
USER Function MyLOJA701
Local _aCab := {} //Array do Cabeçalho do Orçamento
Local _aItem := {} //Array dos Itens do Orçamento
Local _aParcela := {} //Array das Parcelas do Orçamento
Private lMsHelpAuto := .T. // Variavel de controle interno do ExecAuto
Private lMsErroAuto := .F. // Variavel que informa a ocorrência de erros no ExecAuto
Private INCLUI := .T. // Variavel necessária para o ExecAuto identificar que se trata de uma inclusão
Private ALTERA := .F. // Variavel necessária para o ExecAuto identificar que se trata de uma inclusão//Indica inclusão
lMsHelpAuto := .T.
lMsErroAuto := .F.
//Monta cabeçalho do orçamento (SLQ)
_aCab:= { {"LQ_VEND" ,"000001" ,NIL},;
{"LQ_COMIS" ,0 ,NIL},;
{"LQ_CLIENTE" ,"000001" ,NIL},;
{"LQ_LOJA" ,"01" ,NIL},;
{"LQ_TIPOCLI" ,"F" ,NIL},;
{"LQ_VLRTOT" , 216 ,NIL},;
{"LQ_DESCONT" , 0 ,NIL},;
{"LQ_VLRLIQ" , 216 ,NIL},;
{"LQ_NROPCLI" ," " ,NIL},;
{"LQ_DTLIM" ,dDatabase ,NIL},;
{"LQ_DINHEIR" , 216 ,NIL},;
{"LQ_EMISSAO" ,dDatabase ,NIL},;
{"LQ_NUMCFIS" ,"003011 " ,NIL},;
{"LQ_VLRDEBI" , 0 ,NIL},;
{"LQ_HORA" ,"" ,NIL},;
{"LQ_NUMMOV" ,"1 " ,NIL}}

aAdd(_aItem,{ {"LR_PRODUTO", "1 ",NIL},;
{"LR_QUANT" , 1 ,NIL},;
{"LR_UM" , "CX" ,NIL},;
{"LR_DESC" , 0 ,NIL},;
{"LR_VALDESC", 0 ,NIL},;
{"LR_DOC" , "003011 " ,NIL},;
{"LR_SERIE" , "01 " ,NIL},;
{"LR_PDV" , "0001 " ,NIL},;
{"LR_TABELA" , "1" ,NIL},;
{"LR_DESCPRO", 0 ,NIL},;
{"LR_FILIAL" , "01" ,NIL},;
{"LR_VEND" , "000001" ,NIL} })

aAdd(_aItem,{ {"LR_PRODUTO", "2 ",NIL},;
{"LR_QUANT" , 1 ,NIL},;
{"LR_UM" , "CX" ,NIL},;
{"LR_DESC" , 0 ,NIL},;
{"LR_VALDESC", 0 ,NIL},;
{"LR_DOC" , "003011 " ,NIL},;
{"LR_SERIE" , "01 " ,NIL},;
{"LR_PDV" , "0001 " ,NIL},;
{"LR_TABELA" , "1" ,NIL},;
{"LR_DESCPRO", 0 ,NIL},;
{"LR_FILIAL" , "01" ,NIL},;
{"LR_VEND" , "000001" ,NIL} })

//Monta o cabeçalho do orçamento (aPagtos)

aAdd(_aParcela,{{"L4_DATA" ,dDatabase ,NIL},;
{"L4_VALOR" ,216 ,NIL},;
{"L4_FORMA" , "R$ " ,NIL},;
{"L4_ADMINIS" , " " ,NIL},;
{"L4_FORMAID" , " " ,NIL},;
{"L4_MOEDA" , 0 ,NIL}})

SetFunName("LOJA701")
MSExecAuto({|a,b,c,d,e,f,g,h| Loja701(a,b,c,d,e,f,g,h)},.F.,3,"","",{},_aCab,_aItem ,_aParcela)
If lMsErroAuto
Alert("Erro no ExecAuto")
DisarmTransaction() // Libera sequencial
RollBackSx8()
Else
Alert("Sucesso na execução do ExecAuto")
EndIf
Return