Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Rotina

Nome Técnico

TECA740.PRW

TECA740F.PRW

orçamento de serviços



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()

...

MsgAlert(/*Mensagem*/, /*Titulo*/)

...


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