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 ;