Salve salve....
Ponto de entrada MT120TEL - ( Compras - Pedido de Compra )
MATA103-MT120TEL - Criação de campo no cabeçalho do pedido de compras
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT120TEL
Criação de campo no cabeçalho do pedido de compras
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT120TEL()
Local oNewDialog := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local aObj := PARAMIXB[3]
Local nOpcx := PARAMIXB[4]
Local oSayXX := Nil
Local oCombo01 := Nil
Local aCombo01 := {'N=NAO','S=SIM'}
Local nColuna := 560
If FwIsInCallStack('A120Pedido')
_SetNamedPrvt( 'cC7XXXX' , 'N', 'A120Pedido' )
Else
_SetNamedPrvt( 'cC7XXXX' , 'N', FunName() )
Endif
If FwIsInCallStack('MATA122')
nColuna += 100
Endif
If nOpcx != 3
cC7XXXX := SC7->C7_XXXX
EndIf
oSayXX := TSay():New( 050,nColuna,{|| RetTitle('C7_XXXX') },oNewDialog,,,.F.,.F.,.F.,.T.,,,100,008)
oCombo01 := TComboBox():New( 050,nColuna+040,{|u|if(PCount()>0,cC7XXXX:=u,cC7XXXX)},aCombo01,040,006,oNewDialog,,,,CLR_BLACK,CLR_WHITE,.T.,,'',,,,,,, )
oCombo01:cTooltip := ' XXXX '
oCombo01:bHelp := {|| ShowHelpCpo( 'C7_XXXX', {' XXXXXXX '}, 0 ) }
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima