Home

Linha Microsiga Protheus

Páginas filhas
  • ExecAuto Nota sobre Cupom - LOJR130

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
ExecAuto Nota sobre cupom LOJR130
ExecAuto Nota sobre cupom LOJR130

Função: ExecAuto Nota sobre cupom LOJR130

 

Abrangências:Microsiga Protheus 11 , Protheus 10
Sistemas Operacionais:Windows
Compatível às Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Português (Brasil)

 

Descrição:
Exemplos 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. 
  
Exemplo 1:
Sintaxe:

ExecAuto Nota sobre cupom LOJR130 ( aParam )

Retorno:
()


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
//Este exemplo refere-se a geração de uma nota para apenas um cupom(MV_LJ130MN com o conteúdo .F.)
 

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()

 

//Este exemplo refere-se a geração de uma nota para múltiplos cupons(MV_LJ130MN com o conteúdo .T.)

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.          
 Nome  Tipo   Descrição   Default   Obrigatório   Referência
 MV_LJ130MN  Lógico  Permite gerar uma nota para multiplos cupons (.T. // Permite gerar uma nota para multiplos cupons ou .F. // Gera nota para apenas um cupom)   .F.