Histórico da Página
...
Produto: | Protheus ADVPL |
Versões: | P12.1.17 |
Ocorrência: | Ao executar a rotina automática MATA261 ocorre essa inconsistência. AJUDA:OCORRENCIA |
Ambiente: | P12.1.17 |
Passo a passo: | Neste caso basta adicionar na execauto D3_IDDCF ou D3_OBSERVA Exemplo para apoio. #INCLUDE "PROTHEUS.CH" "rwmake.ch" User Function MATA261INMyMata261() local aAuto := "000000000000001"Local cUM := "" Local cLocal := "" Local cDoc := "" Local cLote := ""//LOTE01 " Local dDatVal := "" Local nQuant := 10 Local lOk := .T. Local aItem := {} Local nX := 0 Local nOpcAuto := 3 // Indica qual tipo de acao sera tomada (Inclusao/Exclusao) PRIVATE lMsHelpAuto := .T. PRIVATE lMsErroAuto := .F. //Abertura do ambiente | PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"// MODULO "EST" DbSelectArea("SB1") DbSetOrder(1) If ! {} Private lMsErroAuto := .F. for nX := 1 to len(alista) step 2 PadR(alista[nX], tamsx3('D3_COD') [1]))) ConOut(OemToAnsi("Cadastrar produto: " + cProd)) Else cProd := B1_COD cDescri := B1_DESC cUM := B1_UM cLocal := B1_LOCPAD EndIf If lOk cDoc := GetSxENum("SD3","D3_DOC",1) ConOut(Repl("-",80)) ConOut(PadC("Teste de Transf. Mod2",80)) ConOut("Inicio: "+Time()) Begin Transaction // Teste de Inclusao //Cabecalho a Incluir aAuto := {} aadd(aAuto,{cDoc,dDataBase}) //Cabecalho //Itens a Incluir aadd(aItem,cProd) //D3_COD (Origem) aadd(aItem,cDescri) //D3_DESCRI (Origem) aadd(aItem,cUM) //D3_UM (Origem) aadd(aItem,cLocal) //D3_LOCAL (Origem) aadd(aItem,"") //D3_LOCALIZ (Origem) aadd(aItem,cProd) //D3_COD (Destino) aadd(aItem,cDescri) //D3_DESCRI (Destino) aadd(aItem,cUM) //D3_UM (Destino) aadd(aItem,"02") //D3_LOCAL (Destino) aadd(aItem,"") //D3_LOCALIZ (Destino) aadd(aItem,"") //D3_NUMSERI aadd(aItem,cLote) //D3_LOTECTL aadd(aItem,"") //D3_NUMLOTE aadd(aItem,dDataBase) //D3_DTVALID aadd(aItem,0) //D3_POTENCI aadd(aItem,10) //D3_QUANT aadd(aItem,0) //D3_QTSEGUM aadd(aItem,"") //D3_ESTORNO aadd(aItem,"1") //D3_NUMSEQ aadd(aItem,cLote) //D3_LOTECTL aadd(aItem,dDataBase) //D3_DTVALID aadd(aItem,"") //D3_ITEMGRD //aadd(aitem," ")//"D3_IDDCF" aadd(aitem," ")//"D3_OBSERVA" aadd(aAuto,aItem) MSExecAuto({|x,y| aadd(aLinha,{"ITEM",'00'+cvaltochar(nX),Nil}) aadd(aLinha,{"D3_LOTECTL", "", Nil}) //Lote destino MSExecAuto({|x,y| mata261(x,y)},aAuto, nOpcAuto3) ConOut("Incluido com sucesso! " + cDoc) Else ConOut("Erro na inclusao!")
ConOut("Fim : "+Time()) End Transaction EndIf RESET EndIf Nil |
Observações: |