Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

NomeTipoDescriçãoDefaultObrigatórioReferêncianValMerNumber

Valor da Mercadoria

nPesoNumberPeso RealnPesoM3NumberPeso CubadonPesoCobNumberPeso CobradonQtdVolNumberQuantidade Volumes

nSeguro

NumberSeguro RRnMetro3NumberMetragem CúbicanQtdUniNumberQuantidade UnitizadoresnValDpcNumberValor CTe Despachante
cCliCalCharacter

Cliente de Cálculo




cLojCalcCliDevCharacterCodigo DevedorcLojDevCharacterLoja Devedorde Cálculo


cLotNFccCliDevCharacterLote Cliente de Notas FiscaisDébito


cTabFrecLojDevCharacterTabela Loja de FreteDébito


cTipTabcCGCRemCharacterTipo da TabelanKmNumberKm da Nota FiscalaNfCtrcArray of RecordNotas do CálculonPesoVgeNumberPeso Real da ViagemnPesoM3VgeNumberPeso Cubado da ViagemnMetro3VgeNumberMetragem Cúbida da ViagemnValMerVgeNumberValor Mercadoria da ViagemnQtdVolVgeNumberQuantidade Volumes da ViagemnDiaArmNumberDias de ArmazenagemcCdrOriCharacterRegião de OrigemcFilDocCharacterFilial Origem do DocumentocDocCharacterNúmero do DocumentocSerieCharacterSérie do DocumentocFilOriCharacterFilial Origem da ViagemcViagemCharacterNúmero da ViagemaTipVeiArray of RecordTipos dos Veículos da ViagemCGC do Remetente


cCGCDes

CharacterCGC do Destinatário


cTipFreCharacterTipo do Frete


cTipTraCharacterTipo de Transporte


cSerTMSCharacterServiço do TMS


cCodNegCharacterCódigo de Negociação


cServicCharacterServiço de Negociação



Retorno:

Array of Record {nValMercCliCal,nPesocLojCal,nPesoM3cCodNeg,nPesoCobcServic,nQtdVol,nSeguro,nMetro3,nQtdUni,nValDpc,nKm,cBsComp,cCdrDes,nMetro3Vge,nValMerVge,nQtdVolVge,nDiaArm,nPesoVge,nPeso3Vge,cCdrOri,aTipVeicSerTMS,cTipTra}

03. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagejava
themeMidnight
titleTMALTBASTME80NEG
#INCLUDE 'Protheus.ch'

User Function TME80NEG()
Local aRet    := {}
Local cCliCal := ParamIXB[1]
Local cLojCal := ParamIXB[2]
Local cCliDev := ParamIXB[3]
Local cLojDev := ParamIXB[4]
Local cCGCRem := ParamIXB[5]
Local cCGCDes := ParamIXB[6]
Local cTipFre := ParamIXB[7]
Local cTipTra := ParamIXB[8]
Local cSerTMS := ParamIXB[9]
Local cCodNeg := ParamIXB[10]
Local cServic := ParamIXB[11]

Aadd(aRet,"SP0001")
Aadd(aRet,"01")
Aadd(aRet,"CN")
Aadd(aRet,"SVC")
Aadd(aRet,"2")
Aadd(aRet,"1")

MsgAlert(aRet[1] + " " + aRet[2] + aRet[3] + aRet[4] + aRet[5] + aRet[6],"PE TME80NEG Retornando")

Return aRet

...