Histórico da Página

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MyLOJR130 ºAutor ³Vendas Clientes º Data ³ 29/01/2015 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Funcao de teste para chamar a Nf sobre Cupom (LOJR130). º±±
±±º ³ A chamada desta função deverá ser adicionada ao menu do º±±
±±º ³ modulo SIGALOJA. º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MyLOJR130()

Local aCupons := {} //Array com os cupons para geracao da nota

Local lNota := .T. //Informa se eh geracao ou estorno da nota
Local cCliNF := "000002" // Cliente para geracao da nota
Local cLojNF := "01" // Loja do cliente para geracao da nota

Private lMsHelpAuto := .T. // Variavel de controle interno do ExecAuto
Private lMsErroAuto := .F. // Variavel que informa a ocorrência de erros no ExecAuto

//Adiciona os cupons para geracao da nota com multiplos cupons
Aadd(aCupons,{"000101","ECF","000002","01"})
Aadd(aCupons,{"000102","ECF","000002","01"})
Aadd(aCupons,{"000103","ECF","000002","01"})

//Chamada da EXECAUTO
LojR130(aCupons,lNota,cCliNF,cLojNF)

If lMsErroAuto

Retorno:

()

Este exemplo refere-se ao estorno de uma nota gerada a partir de cupons(MV_LJ130MN com o conteúdo .T.)

Importante:

• Para o estorno da(s) nota(s) gerada a partir dos cupons deve ser informado o numero da nota fiscal e não do cupom como é informado na geração da nota fiscal;
• Para execução do estorno via execauto o parametro MV_LJ130MN deve estar ativo;
• A geração de uma nota fiscal a partir de multiplos cupons o parametro MV_LJ130MN deve estar ativo.