Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TMSSEGDC - Altera Dados - TM Seguro
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Este Ponto de Entrada, localizado no TMSXFUNA (na Funcao TMSEGURO), é utilizado para modificar dados como valor de mercadoria, regiao, na averbação de seguro. Conforme exemplo abaixo o vetor esta recebendo um outro valor especificado pelo usuario..
Eventos


 

Programa Fonte 
TMXFUNA.PRW
Sintaxe

TMSSEGDC - Altera Dados - TM Seguro ( ) --> aSeg

Retorno
    aSeg(vetor)
  • Array com os dados de seguros.
Observações


 

Exemplos 
User Function TMSSEGDC()Local aCampos := PARAMIXB// -- Campos Referentes ao Array aCampos// -- Posicao 1 = Codigo do Produto             Tipo Caracter// -- Posicao 2 = Cliente Origem                Tipo Caracter// -- Posicao 3 = Regiao de Calculo             Tipo Caracter// -- Posicao 4 = Valor da Mercadoria           Tipo Numerico// -- Posicao 5 = Cliente Remetente             Tipo Caracter// -- Posicao 6 = Loja do Cliente Remetente     Tipo Caracter// -- Posicao 7 = Cliente Destinatario          Tipo Caracter// -- Posicao 8 = Loja Cliente Destinatario     Tipo Caracter// -- Posicao 9 = Cliente Devedor               Tipo Caracter// -- Posicao 10= Loja Cliente Devedor          Tipo CaracterIf Len(aCampos) > 0   If aCampos[Len(aCampos),3] == '01001'           aCampos[Len(aCampos),4] := 100   EndIfEndIfReturn aCampos