Linha de Produto: | Microsiga Protheus. | ||||
Segmento: | Manufatura. | ||||
Módulo: | SIGAMNT - Manutenção de Ativos. | ||||
Rotina: |
| ||||
| Ponto de Entrada: | DT_PE_MNTA656I_Campos_Abastecimento_Lote_TVVLAI DT_PE_MNTA656J_Campos_Abastecimento_Lote_TVVLAI | ||||
Chamados Relacionados | TVVLAI. | ||||
País(es): | Todos. | ||||
Banco(s) de Dados: | Todos. | ||||
Sistema(s) Operacional(is): | Todos. |
Ponto de entrada para alterar o aHeader e incluir novos campos.
Alterados abastecimentos Em Lote (MNTA656) para que, ao utilizar os pontos de entrada MNTA656I, MNTA656J, MNTA656K e MNTA656L, grave corretamente o campo Centro de Custos (TPN_CCUSTO) no campo Centro de Custos (TQN_CCUSTO).
Descrição: | Ponto de entrada para utilização de campos na rotina de Abastecimento em Lote Posto Interno (MNTA656). | ||||||||
Localização: | SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento em Lote. | ||||||||
Eventos: | Abastecimento em Lote Posto Interno (MNTA656). | ||||||||
Programa Fonte: | MNTA656.PRW | ||||||||
Função: | MNTA656I() | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function MNTA656I()
aHeader := PARAMIXB[1]
dbSelectArea("SX3")
dbSetOrder(2)
If dbseek("TPN_CCUSTO")
Aadd( aHeader,{Trim(X3TITULO()),X3_CAMPO,X3_PICTURE,X3_TAMANHO,; //"Centro Custo"
X3_DECIMAL,X3_VALID,X3_USADO,X3_TIPO,X3_F3,X3_CONTEXT,X3_CBOX,X3_RELACAO})
EndIf
Return aHeader
