Ponto-de-Entrada: MT410CPY - Alteração do acols e de variáveis da enchoice
Versões: | Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição:
O ponto de entrada MT410CPY é executado após o preenchimento do acols e das variaveis da enchoice, antes da apresentação da tela, permitindo alteração do acols e variaveis da enchoice.
Programa Fonte
MATA410.PRW
Sintaxe
MT410CPY - Alteração do acols e de variáveis da enchoice ( ) --> Nenhum
Retorno
-
Nenhum(caracter)
- Nenhum retorno requerido
Exemplos
USER FUNCTION MT410CPY()Local aArea := GetArea()Local lRet := .T.Local nPosQTDVEN := GDFIELDPOS("C6_QTDVEN")Local nPosPRCVEN := GDFIELDPOS("C6_PRCVEN")Local nPosTES := GDFIELDPOS("C6_TES")Local nPosCF := GDFIELDPOS("C6_CF")Local nx := 0M->C5_SUNDTEN = M->C5_EMISSAOif nPosQTDVEN <> 0 .AND. nPosPRCVEN <> 0 .AND. nPosTES <> 0 .AND. nPosCF <> 0 For nx := 1 To Len(aCols) aCols[nx][nPosQTDVEN] = 0 aCols[nx][nPosPRCVEN] = 0 aCols[nx][nPosTES] = ' ' aCols[nx][nPosCF] = ' ' Next nxendifRestArea(aArea)RETURN lRet
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas