Histórico da Página
AT740INITD - Carga de dados no orçamento de serviços.
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Gestão de Serviços | ||||
Rotina: |
| ||||
Ponto de Entrada: | AT740INITD |
Descrição: | Ponto de Entrada AT740INITD no "initdados", dos fontes TECA740 E TECA740F, para carga dos dados. |
Localização: | Atualizações>>Contratos de Servicos>>Gestão dos Contratos. Atualizações>>Vendas>>Oportunidade de Vendas |
Eventos: | Carga de dados. |
Programa Fonte: | TECA740.PRW TECA740F.PRW |
Função: | AT740INITD |
Exemplo:
#Include 'Protheus.ch'
User Function AT740INITD()
Local oMdlTeste := Paramixb[1]:GetModel("TXX_TESTE") //Carrega o submodelo
Local nw
If !oMdlTeste:isEmpty() //Verifica se há dados no modelo
For nw := 1 to oMdlTeste:Length() //Percorre todas as linhas da grid
oMdlTeste:GoLine(nw) //Posiciona na linha
oMdlTeste:LoadValue("TXX_NOME", "TESTE") //Carrega o valor
//...
Next nw
EndIf
Return