Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • ExecAuto Nota sobre Cupom - LOJR130

Versões comparadas

Versão antiga 1

changes.mady.by.user Leandro De Oliveira Lima

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
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: 
Exemplo de execução da rotina automática de forma automática, mais informações vide o boletim do chamado TEQSE4.
Sintaxe:

ExecAuto Nota sobre cupom LOJR130 ( aParam )

Retorno:
    ()
Observações
 /*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±º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
Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
aParamArray of RecordaParam[1][1] // Doc CupomaParam[1][2] // Serie Cupom aParam[1][3] // ClienteaParam[1][4] // LojaX