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) |
Exemplos de execução da Rotina automática (ExecAuto).
Geração de uma nota para um cupom, múltiplos cupons,e estorno da nota gerada.
ExecAuto Nota sobre cupom LOJR130 ( aParam )
()
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
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 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
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.
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. |