Histórico da Página
...
| Portuguese | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: ExecAuto Nota sobre cupom LOJR130
Descrição: Exemplo de execução da Rotina automática de forma automática. 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 Parâmetros:
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas