ADVPL MVC Execauto. Rotina automatica em MVC VldData CommitData 

                                                    

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


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 )


			If oModel:VldData()
				If oModel:CommitData()
				EndIf
			Else

				aErro   := oModel:GetErrorMessage()

				// A estrutura do vetor com erro é:
				//  [1] Id do formulário de origem
				//  [2] Id do campo de origem
				//  [3] Id do formulário de erro
				//  [4] Id do campo de erro
				//  [5] Id do erro
				//  [6] mensagem do erro
				//  [7] mensagem da solução
				//  [8] Valor atribuido
				//  [9] Valor anterior

				AutoGrLog( "Id do formulário de origem:" + ' [' + AllToChar( aErro[1]  ) + ']' )
				AutoGrLog( "Id do campo de origem:     " + ' [' + AllToChar( aErro[2]  ) + ']' )
				AutoGrLog( "Id do formulário de erro:  " + ' [' + AllToChar( aErro[3]  ) + ']' )
				AutoGrLog( "Id do campo de erro:       " + ' [' + AllToChar( aErro[4]  ) + ']' )
				AutoGrLog( "Id do erro:                " + ' [' + AllToChar( aErro[5]  ) + ']' )
				AutoGrLog( "Mensagem do erro:          " + ' [' + AllToChar( aErro[6]  ) + ']' )
				AutoGrLog( "Mensagem da solução:       " + ' [' + AllToChar( aErro[7]  ) + ']' )
				AutoGrLog( "Valor atribuido:           " + ' [' + AllToChar( aErro[8]  ) + ']' )
				AutoGrLog( "Valor anterior:            " + ' [' + AllToChar( aErro[9]  ) + ']' )

				// If nItErro > 0
				// 	AutoGrLog( "Erro no Item:              " + ' [' + AllTrim( AllToChar( nItErro  ) ) + ']' )
				// EndIf

				MostraErro()


			EndIf


			oModelCQW:DeActivate()                                            


Return( Nil )                                                    

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