Perguntas Dúvida Orçamento Vendas

#INCLUDE "TOTVS.CH"
User Function A415LIOK
Local _aAreaAtu	:= GetArea()
Local _aAreaTMP1:= TMP1->( GetArea() )
Local _aAreaSF4 := SF4->( GetArea() )
Local _lRet     := .T.
Local _nLimVend := POSICIONE("SA3",1,xFilial("SA3") + M->CJ_XVEND,"A3_XVLIMAM")
Local _nTotOrc  := 0

If SCJ->( FieldPos("CJ_XBRINDE") ) > 0 .AND. SCJ->( FieldPos("CJ_XVEND") ) > 0
	//Obtem o CFO da linha a partir do TES
	_cCFOrc	 := POSICIONE("SF4",1,xFilial("SF4") + TMP1->CK_TES,"F4_CF")
	RestArea( _aAreaSF4 )
	
	//Se a linha nao foi deletada e o produto foi preenchido
	If !TMP1->CK_FLAG .AND. !Empty( TMP1->CK_PRODUTO ) .AND. ( INCLUI .OR. ALTERA ) .AND. ( !Empty( Alltrim( _cCFOrc ) ) .AND. Alltrim( _cCFOrc ) <> "000" )
		
		Do Case
			//Existe limite e o CFOP esta incorreto, vendedor preenchido e eh brinde
			Case ( _nLimVend > 0 .AND. !Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") ) .AND. !Empty( M->CJ_XVEND ) .AND. Alltrim( M->CJ_XBRINDE ) == "1" );
				.OR. ( _nLimVend > 0 .AND. Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") ) .AND. !Empty( M->CJ_XVEND ) .AND.  ( Empty( M->CJ_XBRINDE ) .OR. Alltrim( M->CJ_XBRINDE ) == "2" )  );
				.OR. (  _nLimVend == 0 .AND. Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") ) .AND. Empty( M->CJ_XVEND ) .AND.  ( Empty( M->CJ_XBRINDE ) .OR. Alltrim( M->CJ_XBRINDE ) == "2" ) )
				MsgStop("TES inválido não informado ou Tipo inválido para esta Operacao "+IIf( Alltrim( M->CJ_XBRINDE ) <> "1"," - Comum"," - Amostras / Brindes")+" : " + Alltrim( TMP1->CK_TES ) + Chr(13) + Chr(10) + "Favor verificar!","ATENÇÃO")
				_lRet := .F.
				RecLock("TMP1",.F.)
				TMP1->CK_TES := Replicate( "0",TamSx3("CK_TES")[1] )
				MsUnLock()
				
				//Existe limite e o CFOP esta correto, vendedor preenchido e eh brinde
			Case _nLimVend > 0 .AND. Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") ) .AND. !Empty( M->CJ_XVEND ) .AND. Alltrim( M->CJ_XBRINDE ) == "1"
				//Estando OK, testa o limite do vendedor com o total do Orcamento
				_nTotOrc := 0
				dbSelectArea("TMP1")
				TMP1->( DbGotop() )
				Do While TMP1->( !Eof() )
					//Obtem o CFO da linha a partir do TES
					_cCFOrc	 := POSICIONE("SF4",1,xFilial("SF4") + TMP1->CK_TES,"F4_CF")
					RestArea( _aAreaSF4 )
					
					If !TMP1->CK_FLAG .AND. Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") )
						_nTotOrc += TMP1->CK_VALOR
					EndIf
					TMP1->( DbSkip() )
				EndDo
				
				//Depois de obter o total volta para a linha atual
				RestArea( _aAreaTMP1 )
				
				If _nTotOrc > _nLimVend
					MsgStop("Seu limite máximo para a Operacao com Amostras / Brindes é de : " + Alltrim( TransForm(_nLimVend,"@E 999,999,999.99") ) + Chr(13) + Chr(10) + "Digitado no Orcamento: " + Alltrim( TransForm(_nTotOrc,"@e 999,999,999.99") ) + Chr(13) + Chr(10) + "Favor verificar!","ATENÇÃO")
					Return( _lRet := .F. )
				Else
					_lRet := .T.
				EndIf
				//Nao Existe limite e o CFOP esta correto, vendedor preenchido e eh brinde
			Case _nLimVend == 0 .AND. Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") ) .AND. !Empty( M->CJ_XVEND ) .AND. Alltrim( M->CJ_XBRINDE ) == "1"
				MsgStop("Valor limite inexistente para esta Operacao "+IIf( Alltrim( M->CJ_XBRINDE ) <> "1"," - Comum"," - Amostras / Brindes")+" : " + Alltrim( TransForm(_nLimVend,"@e 999,999,999.99") ) + Chr(13) + Chr(10) + "Favor verificar!","ATENÇÃO")
				_lRet := .F.
				//Nao Existe limite e o CFOP correto, vendedor preenchido mas nao eh brinde
			Case _nLimVend == 0 .AND. Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") ) .AND. !Empty( M->CJ_XVEND ) .AND. ( Empty( M->CJ_XBRINDE ) .OR. Alltrim( M->CJ_XBRINDE ) == "2" )
				MsgStop("Valor limite / TES invalidos para esta Operacao "+IIf( Alltrim( M->CJ_XBRINDE ) <> "1"," - Comum"," - Amostras / Brindes")+" : " + Alltrim( TransForm(_nLimVend,"@e 999,999,999.99") ) + "/" + Alltrim( TMP1->CK_TES ) + Chr(13) + Chr(10) + "Favor verificar!","ATENÇÃO")
				_lRet := .F.
				//Nao Existe limite e o CFOP correto, vendedor nao preenchido e eh brinde
			Case _nLimVend == 0 .AND. Alltrim( _cCFOrc ) $ Alltrim( GetMv("DY_CFBRIND") ) .AND. Empty( M->CJ_XVEND ) .AND.  Alltrim( M->CJ_XBRINDE ) == "1"
				MsgStop("Codigo de Vendedor nao informado para esta Operacao "+IIf( Alltrim( M->CJ_XBRINDE ) <> "1"," - Comum"," - Amostras / Brindes") + Chr(13) + Chr(10) + "Favor verificar!","ATENÇÃO")
				_lRet := .F.
		EndCase
	ElseIf	Empty( Alltrim( _cCFOrc ) ) .OR. TMP1->CK_FLAG
		_lRet := .T.
	EndIf
	
EndIf

RestArea( _aAreaAtu )
RestArea( _aAreaTMP1 )
[b][color=#ff0000]oGetDad:oBrowse:Refresh()[/color][/b]

Return .T.