Ponto-de-Entrada: TMA040FOB - Conceito de FOB dirigido
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Usado para efetuar tratamento específico do conceito de FOB dirigido na Cotação do Frete.
Programa Fonte
TMSA040.PRW
Sintaxe
TMA040FOB - Conceito de FOB dirigido ( [ PARAMIXB ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| PARAMIXB | Array of Record | onde 1º e 2º itens contem cliente e loja destino e 3º e 4º itens cliente e loja remetente. |
Retorno
-
()
Exemplos
User Function TMA040FOB()Local lRet := .T.Local cCliDes := ParamIXB[1]Local cLojDes := ParamIXB[2]Local cCliRem := ParamIXB[3]Local cLojRem := ParamIXB[4]If cCliDes == 'RJ0001' .And. cLojDes = '01' lRet := .F.EndIfReturn lRet
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| lRet | Lógico | Global | Não | Se o retorno for .F., o sistema não irá verificar a existência de contrato para o cliente destinatário e irá considerar a tabela de frete do cliente remetente para Calculo do Frete.Se este ponto de Entrada não existir ou retorno for .T., irá verificar a existência de contrato para o cliente destinatário; sendo assim, a tabela de frete do cliente remetente somente será considerada se o cliente destinatário não possuir contrato. |