EICDI500 - EIC - Manutenção de Desembaraço

Salve salve....

Ponto de entrada EICDI500 - ( EIC - Manutenção de Desembaraço )

Nome do Fonte: xEICDI500.tlpp

                           
#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} EICDI500
Manutenção de Desembaraço

@type      function
@author      Eurai Rapelli
@since       2023.01.01
/*/
User Function EICDI500()
	Local cPonto  := ''
	Local xRet    := .T.

	If ValType(PARAMIXB) == "C"
		cPonto := PARAMIXB
	ElseIf ValType(PARAMIXB) == "A"
		cPonto := PARAMIXB[01]
	Endif


	If cPonto == "SEL_ITEM"  //Adicionar informação na tela de Item

                M->XSERIE := Work->XSERIE
		@nL1,nC1 SAY 'Info Adicional' SIZE 40,8 PIXEL
		@nL1,nC2 MSGET M->XSERIE   PICT '@!' SIZE 107,08 PIXEL WHEN .F.
		nL1  += 13


	ElseIf cPonto == 'GRV_ALT_SW8'

                Work_SW8->XSERIE := M->XSERIE

	ElseIf cPonto == 'MARCA_ITEM_COM_CAMBIO'

                Work_SW8->XSERIE := M->XSERIE
	ElseIf cPonto == 'MARCA_ITEM_SW7'

                Work_SW8->XSERIE := M->XSERIE

	ElseIf cPonto == 'STRU_WORKS'

		aAdd(aSemSX3SW7, {'WK_XSERIE', 'C', TamSX3('WK_XSERIE')[1], 0})

	ElseIf cPonto == 'VISUAL_CAMPOS'

		aAdd(aCampos, 'WK_XSERIE')

	ElseIf cPonto == 'ADD_TB_CAMPOS'

		aAdd(aTB_Campos, {'WK_XSERIE',, AvSX3('WK_XSERIE', 5)})

	ElseIf cPonto  == 'GRAVA_TRB'

		TRB->WK_XSERIE:= SW7->WK_XSERIE

	ElseIf cPonto  == 'GRAVA_FINAL'

		//Gravação

	ElseIf cPonto   == 'INICIO_OPCAO'

		If MOpcao== '1'   // Embarque
			If nOpc_mBrw == 4
				aAdd(aBotoes1t, {'BMPINCLUI', {|| U_XXX() }, '*Importar'})
			EndIf
		EndIf

	ElseIf cPonto == 'AROTINA'

		aAdd( aRotina, { "*Incluir Lotes","U_XXX()"     ,0 ,3 } )

	ElseIf cPonto == 'AADD_BROWSE_ITEM'

	ElseIf cPonto == 'INICIO_DI500MANUT' 

 //Função no INICIO

	ElseIf cPonto == 'MANUT_W9_INC'

            M->W9_INCOTER := M->W6_XINCOTE

	ElseIf cPonto == 'INICIA_SW6_SW9'

            M->W9_INCOTER := M->W6_XINCOTE


	ElseIf cPonto == 'GRAVA_INCLUI_SW7'

	ElseIf cPonto == 'GRAVA_ALTERA_SW7'

	ElseIf cPonto == 'FINAL_OPCAO'

	ElseIf cPonto == 'ANT_VALID_SW6'

		fANT_VALID_SW6() //Embarque

	ElseIf cPonto == 'DEPOIS_VALID_SW6'

	ElseIf cPonto == 'GRAVA_TUDO'

		//Desembaraço

	ElseIf cPonto == 'ANTES_CONF_GRAVA'

	ElseIf cPonto == 'POS_GRAVA_TUDO'

	ElseIf cPonto == "ANTES_TELA_DESP_MANUT"   // Botao alterar

		SZJ->( dbSetOrder(6) )
		If SZJ->( dbSeek( xFilial("SZJ") + M->WD_HAWB + M->WD_DESPESAS ) )
			If SZJ->ZJ_INTFIN == "S"
				Help( ,, 'HELP',, 'XXXXXXXXXXXXXX', 1, 0)
				lSair := .T.
			Else
				RecLock("SZJ", .F.)
				SZJ->( dbDelete() )
				SZJ->( MsUnLock() )
				MaAlcDoc( {SZJ->(ZJ_FORNECE + ZJ_LOJA + ZJ_NUM),cCRTIPO,SZJ->ZJ_VLTOTAL,,,SZJ->ZJ_GRAPROV,,,,Date()},,3)
			EndIf
		EndIf

	ElseIf cPonto == "DES_EXCLUI2"   // Botao excluir

		SZJ->( dbSetOrder(6) )
		If SZJ->( dbSeek( xFilial("SZJ") + TRB->WD_HAWB + TRB->WD_DESPESA ) )
			If SZJ->ZJ_INTFIN == "S"
				Help( ,, 'HELP',, 'XXXXX', 1, 0)
				lSair := .T.
			Else
				RecLock("SZJ", .F.)
				SZJ->( dbDelete() )
				SZJ->( MsUnLock() )
				MaAlcDoc( {SZJ->(ZJ_FORNECE + ZJ_LOJA + ZJ_NUM),cCRTIPO,SZJ->ZJ_VLTOTAL,,,SZJ->ZJ_GRAPROV,,,,Date()},,3)
			EndIf
		EndIf

	Endif

Return( xRet )

  /*/{Protheus.doc} fANT_VALID_SW6
	Ponto de entrada na rotina EICDI500/EICDI501, Embarque
	@type    function
	@author    Eurai Rapelli

	@since     2023.01.01
/*/ 
Static Function fANT_VALID_SW6()
	Begin Sequence

		If _SetAutoMode() .OR. lIsBlind
			Break
		Endif

		If cNomeCampo == 'TUDO'
			If M->W6_IMPCO == '1'
				If !MsgYesNo( 'XXXX?', 'xEICDI500/fANT_VALID_SW6' )
					lSair := .T.;lRet := .F.; Break
				Endif
			Endif
		Endif

	End Sequence
Return( Nil )

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

Um abraço, e até a próxima