Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TM370COLS - Altera o Conteúdo dos Campos da GetDados
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 está localizado no programa TMSA370 (Registro de Indenizações) e permite alterar o conteudo dos campos da GetDados (Itens).
Eventos


 

Programa Fonte 
TMSA370.PRW
Sintaxe

TM370COLS - Altera o Conteúdo dos Campos da GetDados ( < aCols> , [ nOpcx ], < nA> ) --> Nil

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aCols Array of Record aCols (Itens) X
nOpcx Array of Record
nA Array of Record Linha da GetDados (Item) X
Retorno
    Nil(nulo)
  • Nil
Observações

No Exemplo abaixo, o Ponto de Entrada modifica o conteudo do campo DUB_SEGCLI (Seguro do     
Cliente)

Exemplos 
User Function TM370Cols()Local nSegCli := 0 //-- Percentual de Seguro do ClienteaCols   := ParamIXB[1]  //-- aColsnOpcx := ParamIXB[2]  //-- Opção Sele cionada            nA       := ParamIXB[3]  // -- Linha da Getdados    nSegCli := ( GDFieldGET ( 'DUB_VALIND', nA ) / GDFieldGET( 'DUB_VALPRE', n A ) ) * 100   If nOpcx <> 3  .And. nSegCli <> 0      GDFieldPut( 'DUB_SEGCLI', nSegCli , nA ) //-- Percentual de Seguro do ClienteEndIfReturn .T.Fontes modificados: TmsA37 0.prw ;