Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • ExecAuto Nota sobre Cupom - LOJR130

Versões comparadas

Versão antiga 24

changes.mady.by.user Paulo Henrique Santos de Moura

Gravado em

comparado com

Nova versão 25

changes.mady.by.user Paulo Henrique Santos de Moura

Gravado em

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 de forma automática. 
Geração de uma nota para um cupom, mú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

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 cupom múltiplos cupons LOJR130 ( aParam, lNota, cCliNF, cLojNF )

Retorno:

()

Este exemplo refere-se a geração de uma nota para múltiplos 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 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

 

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.