TMKVPA

#INCLUDE "PROTHEUS.CH"

User Function TMKVPA(aValores,aObj,aItens,cCodPagto,oCodPagto,cDescPagto,oDescPagto,cCodTransp,;
                    oCodTransp,cTransp,oTransp,cCob,oCob,cEnt,oEnt,cCidadeC,oCidadeC,cCepC,oCepC,;
                    cUfC,oUfC,cBairroE,oBairroE,cBairroC,oBairroC,cCidadeE,oCidadeE,cCepE,oCepE,;
                    cUfE,oUfE,nLiquido,oLiquido,nTxJuros,oTxJuros,nTxDescon,oTxDescon,aParcelas,;
                    oParcelas,nEntrada,oEntrada,nFinanciado,oFinanciado,nNumParcelas,oNumParcelas,;
                    nVlJur,nOpc,cNumTlv,cCliente,cLoja,cCodCont,cCodOper,cCliAnt,lTLVReg)

Local lRet		:= .T.
Local nX		:= 0
Local nValParc	:= 0
Local cDtVenc	:= ""

nNumParcelas := 1

If aValores[6] >= 100 .And. aValores[6] < 300
	nNumParcelas := 2 //Se o total da televenda for igual ou maior que 100 e menos que 300 deve gerar duas parcelas
ElseIf aValores[6] >= 300
 	nNumParcelas := 3 //Se o total da televenda for maior que 300 deve gerar três parcelas
EndIf

nValParc := aValores[6]/nNumParcelas

For nX := 1 to nNumParcelas
	cDtVenc := Dtoc(dDataBase+(30*nX)) //Gera o vencimento a cada 30 dias
    aAdd(aParcelas,{cTod(cDtVenc),nValParc,"CH","",0," "})
Next nX

Return lRet

//------------------------------------------------------------------------------------------------------//
//O uso do PE desvia da montagem de tela padrão para definição das formas de pagamento e neste exemplo 	//
//definimos as parcelas e formas sem a necessidade de montar a uma tela e o resultado desta execução	//
//pode ser observado na gravação do tabela SL4															//
//------------------------------------------------------------------------------------------------------//