EXECAUTO MATA103 - Documento de Entrada (Exemplo com Código de Retorno SEFAZ)
Produto: | Protheus | ||||||||||||||||||||||||||||||||||||||||||||||||
Versões: | Todas | ||||||||||||||||||||||||||||||||||||||||||||||||
Ocorrência: | Rotina Automática - MATA103 (Execauto) | ||||||||||||||||||||||||||||||||||||||||||||||||
Ambiente: | SIGACOM - Compras | ||||||||||||||||||||||||||||||||||||||||||||||||
Descrição: | Exemplo da Rotina automática que possui o Código de retorno SEFAZ . | ||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||||||||||||||||||||||||||||||
Passo a passo: | //DOCUMENTO TIPO NORMAL #Include "Protheus.ch" User Function EXEC103() Local aCab := {} Conout("Inicio: " + Time()) Private lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "32" FILIAL "6597" MODULO "COM" cNum := GetSxeNum("SF1","F1_DOC") //Cabeçalho //Itens if(nOpc == 4)//Se for classificação deve informar a variável LINPOS aAdd(aItem, {"LINPOS" , "D1_ITEM", StrZero(nX,4)}) //ou SD1->D1_ITEM se estiver posicionado. endIf
//3-Inclusão / 4-Classificação / 5-Exclusão If !lMsErroAuto ConOut("Fim: " + Time()) RESET ENVIRONMENT Return | ||||||||||||||||||||||||||||||||||||||||||||||||
Observações: | Importante: Não deve-se utilizar o campo D1_ITEM no comando "For". O uso desse campo no array que trás as informações dos itens do documento de entrada, impede a execução correta do Excecauto. Para opção Classificação Quando a rotina automática de Documentos de Entrada(MATA103) for chamada com a opção 4 = Classificação, deve-se necessariamente informar a variável LINPOS, conforme exemplo abaixo: LINPOS aAdd(aLinha, {"LINPOS" , "D1_ITEM", SD1->D1_ITEM}) |