Salve salve....
Ponto de entrada MT110TEL - ( Compras - Solicitação de Compra )
MATA110-MT110TEL - Criacao do Dialog da SC p/ adicionar itens.
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MTA110OK
Validação Solicitação de Compra. tudoOK
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MTA110OK()
Local oDlg := ParamIxb[01]
Local aPosGet := ParamIxb[02]
Local nOpcx := ParamIxb[03]
Local nReg := ParamIxb[04]
Local aArea := GetArea()
Local oSay01 := Nil
Local oGet01 := Nil
_SetNamedPrvt( "cC1XGAPROV" , SC1->C1_XGAPROV, "MATA110" )
oSay01 := TSay():New( aPosObj[1,1]+31,aPosGet[1,1],{|| "Aprovacao:" },oDlg,,,.F.,.F.,.F.,.T.,,,550,008)
oGet01 := TGet():New( aPosObj[1,1]+30,aPosGet[1,2],bSETGET(cC1XGAPROV),oDlg,040,010,,,,/*10*/,,,,.T.,/*15*/,,,,,/*20*/,,)
oGet01:cF3 := 'SAL'
oGet01:bValid := {|| Empty(cC1XGAPROV) .OR. (ExistCpo("SAL",cC1XGAPROV) .AND. CheckSX3("C1_XGAPROV",cC1XGAPROV)) }
RestArea(aArea)
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima