Perguntas Variável não recebe valor

User Function INTVTP()


Local aBotoes    := {}
Local nOpcao    := 0


Local _cIntVT    := ""
Local aSays        := {}
Private cPeriod    := ""
cper := "INTVTP"


cPeriod    := SUBSTR(MV_PAR02,3,4)+SUBSTR(MV_PAR02,1,2) //Valor das somas da SUB.. Não é atribuido



//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³    Parametros da rotina e validacao das perguntas                                                  ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

ValPerg()

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³    Tela de aviso e acesso aos parametros                                                           ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

AAdd(aSays,"[INTEGRACAO VT POUPADOR]")
AAdd(aSays,"Programa para integração do VT Poupador")
Pergunte(CPER,.F.)

AAdd(aBotoes,{ 5,.T.,{|| Pergunte(CPER,.T. ) } } )
AAdd(aBotoes,{ 1,.T.,{|| nOpcao := 1, FechaBatch() }} )
AAdd(aBotoes,{ 2,.T.,{|| FechaBatch() }} )
FormBatch( "[ARQUIVO TEXTO ]", aSays, aBotoes )


If SELECT("INT_VT") <> 0
    INT_VT->(dbCloseArea())
EndIf


_cIntVT    := "SELECT * FROM "+RETSQLNAME("ZZ6")+" WHERE ZZ6_CPF = 'ZZZZZZZZZZZ' AND D_E_L_E_T_=' ' AND ZZ6_FILIAL='"+MV_PAR01+"' AND ZZ6_PERIOD='"+cPeriod+"' "
_cIntVT    := ChangeQuery( _cIntVT )
TCQUERY _cIntVT NEW ALIAS "INT_VT"



dbSELECTAREA("INT_VT")
INT_VT->(dbGoTop())

Do While !INT_VT->(Eof())

    For _nI := 1 To 2 //1 - FUNC / 2 - EMP


        RECLOCK("SRC",.T.)

        SRC->RC_FILIAL    := INT_VT->ZZ6_FILIAL
        SRC->RC_MAT        := INT_VT->ZZ6_MAT
        SRC->RC_TIPO1    := "V"
        SRC->RC_HORAS    := 0
        If _nI == 1
            SRC->RC_PD         := "420"
            SRC->RC_VALOR    := INT_VT->ZZ6_VALFUN
        Else
            SRC->RC_PD        := "758"
            SRC->RC_VALOR    := INT_VT->ZZ6_VALEMP
        EndIf
        SRC->RC_CC        := ALLTRIM(POSICIONE("SRA",1,INT_VT->ZZ6_FILIAL+INT_VT->ZZ6_MAT,"RA_CC"))
        SRC->RC_TIPO2    := "I"        

        SRC->(MSUNLOCK())

    Next


    INT_VT->(dbSkip())
EndDo


INT_VT->(dbCloseArea())

Return