🚀 ADVPL — Ponto de Entrada MT103DCF

Salve salve… 😎
Bora entender na prática como funciona esse ponto de entrada no Protheus e como utilizá-lo de forma simples e eficiente.

📌 Ponto de entrada: MT103DCF — (Compras · Documento de Entrada)

🔧 MATA103 / MT103DCF — O documento de entrada pode ser incluído ou classificado conforme a necessidade do processo.

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} MT103DCF
Documento de entrada pode ser incluído ou classificado

@type       function
@author     Eurai Rapelli
@since      2023.01.01
/*/
User Function MT103DCF()
	Local oDlg       := Nil

	Local oBar01     := Nil
	Local oBtnBmp01  := Nil
	Local oBtnBmp02  := Nil

	Local nOpca      := 000
	Local nLinha     := 010

	Local oPnlItens  := Nil

	Local oXF1ZTP   := Nil
	Local oF1ZTP    := Nil
	Local cF1XXTP   := 'B'
	Local aF1XXTP   := FDCFGC01():getX3CboxArray( 'F1_CAMPO' )

	Local lInclui    := PARAMIXB[1]
	Local lAltera    := PARAMIXB[2]
	Local lVisual    := PARAMIXB[3]
	Local aCamposPar := PARAMIXB[4]

	Default PARAMIXB := {}

	oDlg := MSDialog():New( 000,000,220,230,'Informações Adicionais',,,.F.,,,,,,.T.,,,.T. )

	oPnlItens       := TPanel():NEW( 000, 000, '', oDlg, , .T., , CLR_BLUE, , 000, 000, .T., .T.)
	oPnlItens:Align := CONTROL_ALIGN_ALLCLIENT

	oXF1ZTP := TSay():New( nLinha+00,005,{|| RetTitle("F1_DOC") },oPnlItens,,,.F.,.F.,.F.,.T.,,,550,008)
	oF1ZTP  := TComboBox():New( nLinha-02,050,{|u|if(PCount()>0,cF1XXTP:=u,cF1XXTP)},aF1XXTP,150,010,oPnlItens,,,,CLR_BLACK,CLR_WHITE,.T.,,'',,,,,,, )

	oBar01    := TBar():New( oDlg,25,35,.T.,,,'login_background',.T. )
	oBtnBmp01 := TBtnBmp2():New( 000, 000, 035, 070, 'OK' ,,,,     {|| nOpca := 01, oDlg:End() }, oBar01,'Confirmar',,.F.,.F. )
	oBtnBmp02 := TBtnBmp2():New( 000, 000, 035, 070, 'CANCEL' ,,,, {|| nOpca := 00, oDlg:End() }, oBar01,'Cancelar',,.F.,.F. )

	oDlg:Activate(,,,.T.)

	If nOpca == 01
		aAdd( aCamposPar, { 'F1_DOC', cF1XXTP } )
	Endif

Return( aCamposPar )

Curtiu a dica? 😁
Compartilhe com seus amigos, deixe um comentário e ajude mais gente da comunidade Protheus!

🤝 Um abraço e até a próxima!

#ADVPL #Protheus #TOTVS #PontoDeEntrada #MT103DCF #MATA103 #ComprasProtheus #DocumentoDeEntrada #DesenvolvimentoERP #CodigoADVPL #DicasProtheus