Histórico da Página
...
Bloco de código |
---|
#Include 'PROTHEUS.CH' User Function TM360AUT() Local aCab := {} Local aItens := {} Local aNFAvaria := {} Local cSeq := '001' Local aNF := {} Local aCols := {} Local nPesoNota := 1000 // Peso da Nota Local nQtdVol := 10 //Qtde de Volumes Local nNumNFC := '098765432' Local cSerieNF := '123' //Serie da NF 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}}) aAdd(aNf,{nNumNFC , (nPesoNota / nQtdVol)}) aAdd(aCols,{nNumNFC, cSerieNF, nQtdVol, nQtdVol, .F.}) aAdd(aNFAvaria,{cFilDoc+cDoc+cSerie,; aCols,; aNF,; 'ABC',; //Codigo da Ocorrência '6',; //Tipo de Pendencia AllTrim(Str(Val(cSeq)))}) 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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas