Linha Microsiga Protheus

Árvore de páginas

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