Gravar viagem automaticamente no TMS Protheus

…{“DUD_FILIAL”,”DUD_FILORI”,”DUD_FILDOC“,”DUD_DOC“,”DUD_SERIE”,”DUD_SERTMS”,”DUD_TIPTRA”,; “DUD_CDRDES”,”DUD_GERROM”,”DUD_SERVIC”,”DUD_CDRCAL”,”DUD_ENDERE”,”DUD_STATUS”,; “DUD_DOCTRF”,”DUD_FILATU”,”DUD_CEPENT”} //Monto o array com os dados que serão gravados na tabela de viagem (DUD) aData := {xFilial(“DUD”),cFilAnt,cFilDoc,cDocto,cSerie,”3″,”1″,; DT6->DT6_CDRDES,”2″,”002″,DT6->DT6_CDRCAL,”0″,”1″,; “2”,cFilAnt,”19880000″} //Grava DUD u_SAVEDATA(“DUD”, aFields, aData) Return /*/{Protheus.doc} SAVEDATA…

Saiba mais

Exemplo FWMSPrinter ADVPL

…oFont07) Else oImpGNRE:Say(nBox1 + 56, 0558, cDtVenc, oFont08) EndIf // ———————————————- // BOX: Nº Documento de Origem // ———————————————- cDocOrig := transform(DocOrig(oIdent:_docorig:text),’@R 999999999′) oImpGNRE:Box(nBox1 + 60,450,nBox3 + 060,600,’-6′) oImpGNRE:Say(nBox1 +…

Saiba mais