Segmento:

Varejo

Solução/Implementação:

Efetuado ajuste para que ao utilizar o ExecAuto da rotina LOJR130, seja gerado a nota sobre os cupons informados no array que é enviado para a rotina, caso o parâmetro MV_LJ130MN estiver habilitado.

Exemplo de utilização do ExecAuto do LOJR130 para nota sobre múltiplos cupons:

/*

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±º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