Histórico da Página
CONTEÚDO
Índice | ||||||
---|---|---|---|---|---|---|
|
01. VISÃO GERAL
A rotina de Registro de Ocorrências é uma rotina de apontamento de registro de ocorrências por Documento ou Viagem.
Informações | ||
---|---|---|
| ||
Para a correta e plena utilização do processo automático, somente deverão ser usadas "Ocorrências por Documento". |
02. OBJETIVO DE UTILIZAÇÃO
Realizar processamento da rotina (inclusão de Registro de Ocorrências registro) de Viagem Mod. 3 de forma automática.
03. PARÂMETROS
...
O conteúdo das variáveis deverão ser enviados no instante da execução da rotina. Vide exemplo abaixo.
04. EXEMPLO DE EXECUÇÃO DE PROGRAMA
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE "TOTVS.CH" #INCLUDE "protheus.ch" #INCLUDE 'FWMVCDEF.ch#Include 'PROTHEUS.CH' User Function TM360AUTIncVgeMod3() Local aCab := {} Local aItenscCodVei := {}"TMS001" Local aNFAvariacCodRb1 := {}"" Local cSeq := '001' Local nPesoNotacCodRb2 := 1000 // Peso da Nota"" Local nQtdVol := 10 //Qtde de Volumes Local nNumNFC cCodMot := '098765432'"TMS001" Local cSerieNF := '123' //Serie da NF Local nQtdAva := 1 //Qtde Avaria Local cCodOcolRet := .T. Local cRota := "E008ENTSP3" Local cFilDoc := "M SP 01 " Local cDoc oModel := FwLoadModel("000000029TMSAF60" Local cSerie := "117" Local cTipPnd := "01" Private lMSErroAuto := .F.) oModel:SetOperation(MODEL_OPERATION_INSERT) oModel:Activate() //--Cabecalho da Ocorrencia Aadd(aCab,{"DUA_FILORI-- DTQ oModel:SetValue( "MdFieldDTQ", "30DTQ_SERTMS" , NIL}) // Informe a Filial de Origem da Viagem Aadd(aCab,{"DUA_VIAGEM", "000004", NIL}) // Informe o numero da Viagem //--Itens da ocorrencia: aAdd( aItens, { {"DUA_SEQOCO", StrZero(1,Len(DUA->DUA_SEQOCO)) , NIL},; {"DUA_DATOCO", dDataBase, NIL},; {"DUA_HOROCO", StrTran(SubStr(Time(),1,5),":","") , NIL},; {"DUA_CODOCO", "EINF", NIL},; {"DUA_FILDOC", "30" , NIL},; {"DUA_DOC" , "001094 ", NIL},; {"DUA_SERIE" , "UNI" , NIL},; {"DUA_QTDOCO", 100, NIL},; {"DUA_PESOCO", 100, NIL},; {"DUA_FILVTR", "" , NIL},; {"DUA_NUMVTR", "" , NIL}}) aNFAvaria := {{cFilDoc + cDoc + cSerie, {{cNumNFc, cSerNFc, nQtdVol, nQtdAva}},{{cNumNFc, (nPesoNota / nQtdVol)}}, cCodOco, cTipPnd, "1"}} lMsErroAuto := .F.MsAguarde( {|| MsExecAuto( {|x,y,z| TMSA360(x,y,z)}, aCab, aItens, aNFAvaria, 3 ) }, 'AGUARDE, PROCESSANDO...' ) If lMSErroAuto MostraErro() Else Alert("Conclúido com Sucesso !! ") EndIf Return |
05. TABELAS UTILIZADAS
StrZero( 3, Len( DTQ->DTQ_SERTMS )) )
oModel:SetValue( "MdFieldDTQ", "DTQ_TIPTRA" , StrZero( 1, Len( DTQ->DTQ_TIPTRA )) )
oModel:SetValue( "MdFieldDTQ", "DTQ_TIPVIA" , StrZero( 3, Len( DTQ->DTQ_TIPVIA )) ) //Planejada
oModel:SetValue( "MdFieldDTQ", "DTQ_ROTA" , AllTrim(cRota) )
//---- DTR
oModel:SetValue( "MdGridDTR", "DTR_ITEM" , StrZero( 1, Len( DTR->DTR_ITEM ) ))
oModel:SetValue( "MdGridDTR", "DTR_CODVEI" , cCodVei)
If !Empty( cCodRb1 )
oModel:SetValue( "MdGridDTR", "DTR_CODRB1" , cCodRb1)
EndIf
If !Empty( cCodRb2 )
oModel:SetValue( "MdGridDTR", "DTR_CODRB2" , cCodRb2)
EndIf
//--- DUP
oModel:SetValue( "MdGridDUP", "DUP_CODMOT" , cCodMot)
oModel:SetValue( "MdGridDUP", "DUP_CONDUT" , '1')
If !oModel:VldData() .Or. !oModel:CommitData()
AAdd(aMsgErr,{"Falha ao Incluir Viagem"+oModel:GetErrorMessage()[6],'00','ExecAuto()'}) //"Falha ao Incluir Viagem - "
lRet:= .F.
Else
cRet := oModel:GetValue( "MdFieldDTQ", "DTQ_VIAGEM")
EndIf
oModel:DeActivate()
oModel:= Nil
Return lRet |
05. TABELAS UTILIZADAS
- DTQ -
- DTR
- DUA
- DUPDUA - Registro de Ocorrências
HTML |
---|
<!-- esconder o menu --> <style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas