A rotina de Registro de Ocorrências é uma rotina de apontamento de registro de ocorrências por Documento ou Viagem.
Para a correta e plena utilização do processo automático, somente deverão ser usadas "Ocorrências por Documento". |
Realizar processamento da rotina de Registro de Ocorrências de forma automática.
| Parâmetro | Descrição |
|---|---|
| aCab | Array composto de campos do cabeçalho |
| aItens | Array composto de campos dos itens |
| aAutoNFAva | Array com as NFs com registro de pendências |
| nOpcAuto | Opção de execução (Ex. 3 - Inclusão) |
#Include 'PROTHEUS.CH'
User Function TM360AUT()
Local aCab := {}
Local aItens := {}
Local aNFAvaria := {}
Local cSeq := '001'
Local nPesoNota := 1000 // Peso da Nota
Local nQtdVol := 10 //Qtde de Volumes
Local nNumNFC := '098765432'
Local cSerieNF := '123' //Serie da NF
Local nQtdAva := 1 //Qtde Avaria
Local cCodOco := "E008"
Local cFilDoc := "M SP 01 "
Local cDoc := "000000029"
Local cSerie := "117"
Local cTipPnd := "01"
Private lMSErroAuto := .F.//--Cabecalho da Ocorrencia
Aadd(aCab,{"DUA_FILORI", "30" , 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
|
<!-- 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> |