ADVPL MVC Execauto. Executando tela em FWExecView 

                                                    

#INCLUDE "TOTVS.CH"                                                    
User Function mvcExecView()                                                    


cCQWCONTA   := ''
			cCQWSEQ     := Soma1( LastSeqCQW( QryCT2->CT2_DATA, QryCT2->CT2_LOTE, QryCT2->CT2_SBLOTE, QryCT2->CT2_DOC, QryCT2->CT2_LINHA ) )
			oModelCQW   := FWLoadModel( 'CTBS470' )
			oModelCQW:SetOperation(MODEL_OPERATION_INSERT)
			oModelCQW:Activate()

			oModelCQW:SetValue( "CQWMASTER", "CQW_FILIAL"    , QryCT2->CT2_FILIAL )
			oModelCQW:SetValue( "CQWMASTER", "CQW_DATA"      , QryCT2->CT2_DATA )
			oModelCQW:SetValue( "CQWMASTER", "CQW_LOTE"      , QryCT2->CT2_LOTE )
			oModelCQW:SetValue( "CQWMASTER", "CQW_SBLOTE"    , QryCT2->CT2_SBLOTE )
			oModelCQW:SetValue( "CQWMASTER", "CQW_DOC"       , QryCT2->CT2_DOC )
			oModelCQW:SetValue( "CQWMASTER", "CQW_LINHA"     , QryCT2->CT2_LINHA )
			oModelCQW:SetValue( "CQWMASTER", "CQW_SEQ"       , cCQWSEQ )
			oModelCQW:SetValue( "CQWMASTER", "CQW_VALOR"     , QryCT2->CT2_VALOR )
			oModelCQW:SetValue( "CQWMASTER", "CQW_INDCNT"    , If(QryCT2->CT2_DC=='1','D','C') )
			oModelCQW:SetValue( "CQWMASTER", "CQW_ZERA"      , If(Empty(QryCT2->CT2_VALOR),'S','N') )
			oModelCQW:SetValue( "CQWMASTER", "CQW_DATAAL"    , dCQWDATAAL )
			oModelCQW:SetValue( "CQWMASTER", "CQW_CONTA"     , cCQWCONTA )

            lRet := ( FWExecView('Alteração',"CTBS470", MODEL_OPERATION_UPDATE, , , , 30, , , , , oModelCQW ) == 0 )  //"Alteração por FWExecView"

			oModelCQW:DeActivate()                                            


Return( Nil )                                                    

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎