01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Logística |
Módulo: | SIGATMS - Gestão de Transportes |
02. DESCRIÇÃO
Ponto de entrada que permite alterar a condição de igualdade das informações entre o que foi informado na cotação e o que foi digitado na nota fiscal. Foi criado pois quando alterado o valor informado da nota fiscal, este valor não é comparado pela rotina padrão.
03. EXEMPLO DE UTILIZAÇÃO
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | |||||||||||
lIgualCot | Logic | Condição de igualdade definida por padrão | ||||||||||||||
cSeekDT4 | Character | Chave para leitura da cotação de frete |
Retorno:
lRet
- (Logic)
Retorno será uma variável lógica contendo .T. ou .F. para alterar a condição de igualdade definida no fonte padrão.
Variáveis:
Nome | Tipo | Escopo | Pode Alterar | Descrição | |||||||||
Logic | Local | Sim |
TM200IGU
Programa Fonte TMSA200.PRW Sintaxe TM200IGU - Permite alterar a condição de igualdade entre cotação e nota fiscal ( [ lIgualCot,cSeekDT4 ] ) --> aRet #Include "Protheus.ch" User Function TM200IGU() Local lIgualCot := ParamIXB[1] Local cSeekDT4 := ParamIXB[2] Local lRet := lIgualCot Local nDTCVInf := 0 Local nDF1VInf := 0 Local aAreas := {DF1->(GetArea()),DT4->(GetArea()),DT5->(GetArea()),GetArea()} If lIgualCot DT4->(DbSetOrder(1)) If DT4->(DbSeek(cSeekDT4)) DT5->(DbSetOrder(5)) If DT5->(DbSeek(xFilial("DT5") + DT4->(DT4_FILORI + DT4_NUMCOT))) DTC->(DbSetOrder(8)) If DTC->(DbSeek(xFilial("DTC") + DT5->(DT5_FILORI + DT5_NUMSOL))) nDTCVInf := DTC->DTC_VLRINF EndIf DF1->(DbSetOrder(2)) If DF1->(DbSeek(xFilial("DF1") + DT4->(DT4_FILORI + DT4_NUMCOT))) nDF1VInf := DF1->DF1_VLRINF EndIf lRet := nDTCVInf == nDF1VInf EndIf EndIf EndIf AEval(aAreas,{|x,y| RestArea(x),FwFreeArray(x)}) Return lRet
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
Não há.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas