Histórico da Página

...

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	Obrigatório
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.

Home

Linha Microsiga Protheus

Páginas filhas

Versões comparadas

Versão antiga 9

Nova versão Atual

Chave