Histórico da Página

#include "PROTHEUS.CH"

User Function UFINA460()
	Local cNum := ""
	Local nZ := 0
	Local aCab := {}
	Local aItens := {}
	Local nOpc := 3 //3-LiquidaçãoLiquidación,4-ReliquidacaoReliquidación,5-CancelamentoAnulación de dala liquidaçãoliquidación
	Local cFiltro := ""
	Local cLiqCan := Space(6) //numero da liquidacao a cancelarnúmero de la liquidación que se anulará
	Local aParcelas := {}
	Local nValor := 2000 //Valor aque se liquidarliquidará
	Local cCond := '001' //CondicaoCondición de pagamentopago 1x
	Local nRadio := 1
	Local oRadio
	Local oLiqCan
    Local lAutoPix := .F.

	cNum := padr("200", tamSx3("E1_NUM")[1])

	//TelaPantalla utilizada apenassolamente para exemploejemplo
	nOpca := 0
	DEFINE MSDIALOG oDlg FROM 094,1 TO 240,300 TITLE "LiquidaçãoLiquidación Automaticaautomática" PIXEL
	@ 010,010 Radio oRadio VAR nRadio;
	ITEMS "Liquidar",;
	"Reliquidar",;
	"CancelarAnular";
	3D SIZE 50,10 OF oDlg PIXEL ;
	ON CHANGE ( oLiqCan:lReadOnly := If(nRadio != 3, .T., .F.))

	@ 022,070 SAY "Cancel. LiquidaçãoLiquidación:" SIZE 49, 07 OF oDlg PIXEL
	@ 030,070 MSGET oLiqCan VAR cLiqCan Valid !Empty(cLiqCan) SIZE 49, 11 OF oDlg PIXEL hasbutton

	DEFINE SBUTTON FROM 55,085 TYPE 1 ENABLE OF oDlg ACTION ( nOpca := 1, oDlg:End())
	DEFINE SBUTTON FROM 55,115 TYPE 2 ENABLE OF oDlg ACTION ( nOpca := 0, oDlg:End())

	ACTIVATE MSDIALOG oDlg CENTERED

	If nOpca == 1
		If nRadio == 1 .or. nRadio == 2
			If nRadio == 1 //liquidacaoliquidación
				nOpc := 3
				//Filtro dodel Usuáriousuario
				cFiltro := "E1_FILIAL == '"+xFilial("SE1") + "' .And. "
				cFiltro += "E1_CLIENTE == '000100' .And. E1_LOJA == '01' .And. "
				cFiltro += "E1_SITUACA $ '0FG' .And. E1_SALDO > 0 .and. "
				cFiltro += 'Empty(E1_NUMLIQ)'
			Else
				nOpc := 4 //reliquidacaoreliquidación
				//Filtro dodel Usuáriousuario
				cFiltro := "E1_FILIAL == '"+xFilial("SE1") + "' .And. "
				cFiltro += "E1_CLIENTE == '000100' .And. E1_LOJA == '01' .And. "
				cFiltro += "E1_SITUACA $ '0FG' .And. E1_SALDO > 0 .and. "
				cFiltro += '!Empty(E1_NUMLIQ)'
			Endif

			//Array dodel processoproceso automaticoautomático (aAutoCab)
			aCab := { {"cCondicao" ,cCond },;
			{"cNatureza" ,"001" },;
			{"E1_TIPO" ,"NF " },;
			{"cCLIENTE" ,"000100"},;
			{"nMoeda" ,1 },;
			{"cLOJA" ,"01" },;
            {"AUTMRKPIX", lAutoPix }} 
              //------------------------------------------------------------
			//MontaElabora aslas parcelascuotas de acordoacuerdo comcon ala condiçãocondición de pagamentopago
			//------------------------------------------------------------
			aParcelas := CondicaoCondición( nValor, cCond,, dDataBase)

			//--------------------------------------------------------------
			//NãoNo ées possivelposible mandarenviar AcrescimoAumento ey DecrescimoDescuento juntojuntos.
			//SeSi se mandarenvían oslos doisdos valores maioresmayores que zerocero, considera AcrescimoAumento
			//--------------------------------------------------------------
			For nZ := 1 to Len(aParcelas)
				//DadosDatos de daslas parcelascuotas aque seremse geradasgenerarán
				Aadd(aItens,{{ "E1_PREFIXO", "LIQ" },; //PrefixoPrefijo
				{"E1_BCOCHQ" , "CX1" },; //Banco
				{"E1_AGECHQ" , "00001" },; //Agencia
				{"E1_CTACHQ" , "0000000001" },; //ContaCuenta
				{"E1_NUM" , cNum },; //Nro.Nº chequeCheque (dará origemorigen aoal numeronúmero dodel titulotítulo)
				{"E1_EMITCHQ" , "EXECAUTO" },; //EmitenteEmisor dodel cheque
				{"E1_VENCTO" , aParcelas[nZ,1]},; //DataFecha boabuena
				{"E1_VLCRUZ" , aParcelas[nZ,2]},; //Valor dodel cheque/titulotítulo
				{"E1_ACRESC" , 0 },; //AcrescimoAumento
				{"E1_DECRESC" , 0 }}) //DecrescimoDescuento

				cNum := Soma1(cNum, Len( Alltrim(cNum)))
			Next nZ

			If Len( aParcelas) > 0
				//LiquidacaoLiquidación ey reliquidacaoreliquidación
				//FINA460(nPosArotina,aAutoCab,aAutoItens,nOpcAuto,cAutoFil,cNumLiqCan)
				FINA460(, aCab, aItens, nOpc, cFiltro) //InclusaoInclusión

				// Este aviso solamente funciona apenas para testeprueba monousuario
				Alert("LiquidacaoLiquidación Incluidaincluida -> " + GetMv("MV_NUMLIQ"))
			Endif
		Else
			nOpc := 5
			//CancelamentoAnulación
			FINA460(,,, nOpc,, cLiqCan) //CancelamentoAnulación
			Alert("LiquidacaoLiquidación Canceladaanulada -> " + cLiqCan)
		Endif
	EndIf

Return

  

#Include "Protheus.ch"
#Include "rwmake.ch"
#Include "FWMVCDEF.ch"

Static nValTot      := 0
Static lCpoFK7      := Nil
Static FunName      := Nil
Static aIDDOC       := {}

User Function FINA460A()

Local aParam    := PARAMIXB
Local xRet      := .T.
Local oObj      := NIL
Local cIdPonto  := ''
Local cIdModel  := ''
Local nDescon   := 10
Local nI        := 0
Local cCli460   := ""
Local nValAux   := 0
Local nLenFO2   := 0
Local nValParc  := 0
Local nTxMul    := 10
Local nTxJur    := 1

If FunName == Nil
    FunName   := AllTrim(FunName())
EndIf

If FunName != "FINA460"
    If lCpoFK7 == Nil
        lCpoFK7   := FK7->(ColumnPos("FK7_CLIFOR")) > 0
    EndIf

    /*TaxaTasa de Jurosinterés" (FO1_TXJUR), "TaxaTasa de dala Multamulta" (FO1_TXMUL), "Val. DescontoDescuento" (FO1_DESCON) ey "VlrVal.Adic.Neg" (FO1_VLADIC), */

    If aParam <> NIL
        oObj := aParam[1]

        cIdPonto := aParam[2]
        cIdModel := aParam[3]

        If cIdPonto == 'FORMLINEPOS'
            If cIdModel == 'TITSELFO1'
                cTit    := PosicioneMarque( "FK7", 1, xFilial("FK7") + oObj:GetValue( "FO1_IDDOC" ), "FK7_NUM" )
                cCli460 := PosicioneMarque( "FK7", 1, xFilial("FK7") + oObj:GetValue( "FO1_IDDOC" ), "FK7_CLIFOR" )
                If aScan( aIDDOC, oObj:GetValue( "FO1_IDDOC" ) ) == 0
                    aAdd(aIDDOC, oObj:GetValue( "FO1_IDDOC" ) )
                    For nI := 1 to oObj:Length()
                        oObj:GoLine(nI)
                        nValAux := 0
                        If cCli460 == 'CDESCO' .And. cTit == oObj:GetValue("FO1_NUM") // Cliente comcon descontodescuento
                            nValAux     := oObj:GetValue("FO1_TOTAL") - nDescon
                            oObj:LoadValue("FO1_DESCON", nDescon)
                            oObj:LoadValue("FO1_TOTAL", nValAux)
                        EndIf
                        If cCli460 == 'JURMUL' .And. cTit == oObj:GetValue("FO1_NUM")// Cliente comcon Jurosinterés ey Multamulta
                            nValAux     := oObj:GetValue("FO1_TOTAL")
                            nDias       := dDataBase - FDtVento()
                            oObj:LoadValue("FO1_TXJUR", nTxJur)
                            oObj:LoadValue("FO1_VLJUR", ( nValAux * nTxJur * nDias ) / 100 )
                            oObj:LoadValue("FO1_TXMUL", nTxMul)
                            oObj:LoadValue("FO1_VLMUL", ( nValAux * nTxMul ) / 100 )
                            oObj:LoadValue("FO1_VLADIC", 14.5)
                            nValAux     := nValAux + oObj:GetValue("FO1_VLADIC") + oObj:GetValue("FO1_VLMUL") + oObj:GetValue("FO1_VLJUR")
                            oObj:LoadValue("FO1_TOTAL", nValAux)
                        EndIf
                        nValTot += nValAux
                    Next
                EndIf
                
            EndIf
        ElseIf cIdPonto == 'MODELPOS'

            If cIdModel == "FINA460A"
                oObjFO2 := oObj:GetModel("TITGERFO2")
                nLenFO2 := oObjFO2:Length()
                nValParc := ( nValTot / nLenFO2 )
                For nI := 1 to nLenFO2
                    oObjFO2:GoLine(nI)
                    oObjFO2:LoadValue("FO2_TXJUR", 2 )
                    oObjFO2:LoadValue("FO2_VALOR", nValTot)
                    oObjFO2:LoadValue("FO2_TOTAL", nValTot)
                Next
            EndIf
        EndIf
    EndIf
EndIf

Return xRet

Static Function FDtVento()

    Local dData := CTOD("  /  /  ")
    Local aArea := SE1->(GetArea())

    dData   := Posicione( "SE1", 1, xFilial("SE1") + FK7->(FK7_PREFIXO + FK7_NUM + FK7_PARCELA + FK7_TIPO + FK7_CLIFOR + FK7_LOJA ), "E1_VENCREA" )

    RestArea(aArea)

Return dData