Boa tarde, tenho uma função que chama uma janela com 3 parâmetros: Data inicial (MV_PAR01), Data Final (MV_PAR02) e código do produto(MV_PAR03)

Teria como fazer com que quando abrir essa janela o código que irá vir no (MV_PAR03) seja o código do produto que foi pesquisado?

/ Extrato do produto - tem o objetivo de trazer em tela o extrato do produto /

User Function ExtrSB1(cProd,cDtini,cDtFim,cDtEnc)

Local cPerg := "EXTRATOSB1" // PADR("EXTRATOSB1", LEN(SX1->X1_GRUPO)) Local aArea := GetArea() Local aSize := {}, aObjects := {}, aInfo := {}, aPObjs := {} Local oDlg Local cNotArmazem

Private dDtDe := "" Private dDtAte := ""

Private cCodProdcPerg Private cDesc := "" Private nEst := 0 Private oPanel, oGetDad Private aHeader := {}, aCols := {} Private cFieldOk := "allwaystrue()" // funcao para validacao apos confirmar digitacao de um campo da getdados Private cLinOk := "allwaystrue()" // funcao para validar mudanca de linha na getdados Private cTudOk := "allwaystrue()" // validacao para botao de confimacao (OK) do modelo 3 Private oFont := TFont():New("Arial", , 16, , .T.)

Default cProd := "" Default cDtini := "" Default cDtFim := "" Default cDtEnc := ""

if cProd == ""

If !Pergunte(cPerg, .T.) Return EndIf

dDtDe := DTOS(MV_PAR01)

If Empty(AllTrim(dDtDe)) MsgAlert("Data Inicial não pode ser vazia!!") Return EndIf

If !Empty(AllTrim(DTOS(MV_PAR02))) dDtAte := DTOS(MV_PAR02) Else dDtAte := DTOS(dDataBase) EndIf

cCodProd := MV_PAR03 else dDtDe := cDtini cCodProd := cProd

if ALLTRIM(cDtEnc) != "" dDtAte := cDtEnc elseif ALLTRIM(cDtFim) != "" dDtAte := cDtFim else dDtAte := DTOS(dDataBase) Endif endif

aSize := MsAdvSize(.T.)

aObjects := {}

aAdd( aObjects, { 100, 010, .T.,.T., .T.} ) aAdd( aObjects, { 100, 080, .T.,.T., .T.} ) aAdd( aObjects, { 100, 010, .T.,.T., .T.} )

aInfo := { aSize[ 1 ], aSize[ 2 ], aSize[ 3 ], aSize[ 4 ], 0, 0 } aPObjs := MsObjSize( aInfo, aObjects, .T. )

cNotArmazem := "‘03‘,‘53‘,‘04‘,‘54‘,‘07‘,‘57‘" nEst := U_EstTotal(cCodProd, cNotArmazem, dDtAte) cDesc := Posicione("SB1", 1, xFilial("SB1") + cCodProd, "B1_DESC")

GeraHeader() MontaAcols()

DEFINE MSDIALOG oDlg TITLE OemToAnsi("Extrato do Produto") From aSize[7], 000 To aSize[6], aSize[5] Of oMainWnd Pixel

oPanel := TPanel():New(aPObjs[1, 2], aPObjs[1, 2],, oDlg,,,,,, aPObjs[1, 3], 050) oPanel:Align := CONTROL_ALIGN_TOP

// Verifica se existe o logo na basta system If File("lgrl"+ALLTRIM(cEmpAnt)+".bmp") oTBitmap1 := TBitmap():New(010,010,450,315,,"lgrl"+ALLTRIM(cEmpAnt)+".bmp",.T.,oPanel,,,.F.,.F.,,,.F.,,.T.,,.F.) //oTBitmap1:lAutoSize := .T. @ 005, 080 Say OemToAnsi("Período de: " + DTOC(STOD(dDtDe)) + " até: " + DTOC(STOD(dDtAte))) Size 500, 030 COLORS CLR_BLACK FONT oFont OF oPanel Pixel @ 015, 080 Say OemToAnsi("Código: " + AllTrim(cCodProd)) Size 500, 030 COLORS CLR_BLACK FONT oFont OF oPanel Pixel @ 025, 080 Say OemToAnsi("Descrição: " + cDesc) Size 500, 030 COLORS CLR_BLACK FONT oFont OF oPanel Pixel EndIf

oGetDad := MsNewGetDados():New(aPObjs[2, 1], aPObjs[2, 2], aPObjs[2, 3], aPObjs[2, 4], /nOpcGet/, cLinOk, cTudOk,,,, 99999, cFieldOk,,,, aHeader, aCols) oGetDad:oBrowse:Align := CONTROL_ALIGN_ALLCLIENT

@ 030, aSize[3]-45 Button oBtn PROMPT "Exp. Excel" Size 040, 15 Action (ExtratoExcel()) OF oPanel Pixel

ACTIVATE MSDIALOG oDlg CENTERED

RestArea(aArea)

Return