Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • ExecAuto Nota sobre Cupom - LOJR130

Versões comparadas

Versão antiga 6

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

Gravado em

comparado com

Nova versão 7

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:
Exemplo de execução da Rotina automática de forma automática. Este exemplo refere-se a geração de uma nota para apenas um cupom(MV_LJ130MN com o conteúdo .F.). Mais informações vide Boletim do chamado TEQSE4.
Sintaxe:

ExecAuto Nota sobre cupom LOJR130 ( aParam )

Retorno:
    ()
Observações
A rotina deve ser utilizada para gerar uma nota para um cupom, não atende o modelo utilizado de uma nota para N cupons.
     /*
    ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
    ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
    ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
    ±±º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


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

    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.