Histórico da Página

ExemploExemplos de execução da Rotina automática (ExecAuto). 

de forma automática. Geração de uma nota para um cupom, multiplosmúltiplos cupons ,e estorno da nota gerada. 

  . Mais informações vide Boletim do chamado TEQSE4.

()

Este 
 
 exemplo 
 
 refere-se 
 
 a 
 
 geração 
 
 de 
 
 uma 
 
 nota 
 
 para 
 
 apenas 
 
 um 
 
 cupom(MV_LJ130MN 
 
 com 
 
 o 
 
 conteúdo 
 
 .F.)
 
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³MyLOJR130   ºAutor  ³Vendas Clientes º Data ³  03/02/2011 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±º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 _aParam   := {{"","","",""}}            //Array do Cabeçalho 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
 
//Indica inclusão
lMsHelpAuto := .T.
lMsErroAuto := .F.
 
//Monta os parametros
_aParam[1][1] := "000050"
_aParam[1][2] := "ECF"
_aParam[1][3] := "000001"
_aParam[1][4] := "01"
 
//Chama a rotina de nota sobre cupom
MSExecAuto({|a| Lojr130(a)},_aParam)
 
If lMsErroAuto
 Alert("Erro no ExecAuto")        
 DisarmTransaction()
 // Libera sequencial
 RollBackSx8()
Else
 Alert("Sucesso na execução do ExecAuto")
EndIf
 
Return

Exemplo 2:
Sintaxe:
ExecAuto Nota sobre múltiplos cupons LOJR130 ( aParam, lNota, cCliNF, cLojNF )
Retorno:
()

Este exemplo refere-se a geração de uma nota para múltiplos 
Descrição:Exemplo de execução da Rotina automática de forma automática. Este exemplo refere-se a geração de uma nota para apenas para múltiplos 
 cupons(MV_LJ130MN 
 
 com 
 
 o 
 
 conteúdo 
 
 .T.
).
Sintaxe:
ExecAuto Nota sobre cupom LOJR130 ( aParam, lNota, cCliNF, cLojNF )
Retorno:(
)
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±º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
 Alert("Erro no ExecAuto")        
 DisarmTransaction()
 // Libera sequencial
 RollBackSx8()
Else
 Alert("Sucesso na execução do ExecAuto")
EndIf
Return
 
Exemplo 3:
Sintaxe:
ExecAuto Nota sobre múltiplos cupons LOJR130 ( aParam, lNota, cCliNF, cLojNF )
Retorno:
()

Este exemplo refere-se ao estorno de uma nota gerada a partir de cupons(MV_LJ130MN com o conteúdo .T.)
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±º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 aNFS := {} //Array com as notas fiscal para estorno 
Local lNota := .F. //Informa se eh geracao ou estorno da nota
Local cCliNF := "000002" // Cliente para estorno da nota
Local cLojNF := "01" // Loja do cliente para estorno 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 as notas fiscais para execucao do estorno
Aadd(aNFS,{"000010","UNI","000002","01"})
Aadd(aNFS,{"000011","UNI","000002","01"})
//Chamada da EXECAUTO
LojR130(aCupons,lNota,cCliNF,cLojNF)

If lMsErroAuto
 Alert("Erro no ExecAuto") 
 DisarmTransaction()
 // Libera sequencial
 RollBackSx8()
Else
 Alert("Sucesso na execução do ExecAuto")
EndIf
Return
 
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.
 
Parâmetros:
 
 
Nome
 
 
Tipo
 
 
Descrição
 
 
Default
 
 
Obrigatório
 
 
Referência
 
 
aParam
 
 
Array of Record
 
 
aParam[1][1] // Doc CupomaParam[1][2] // Serie Cupom aParam[1][3] // ClienteaParam[1][4] // Loja
 
 
 
 
 
X
 
 
 
 
 
lNota
 
 
Variable Logical
 
 
.T. //Gera Nota ou .F. //Estorna Nota
 
 
 
 
 
 
 
 
 
 
 
cCliNF
 
 
Variable
 
 
Cliente para geração da Nota(Necessário CPF ou CNPJ).
 
 
 
 
 
 
 
 
 
 
 
cLojNF
 
 
Variable
 
 
Loja do cliente para geração da Nota.