Perguntas CONSIDERAR TAXAS CARTÓRIO NO CNAB
9 anos 11 meses atrás #22567
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico CONSIDERAR TAXAS CARTÓRIO NO CNAB
Ve ai se funfa nao testei 
User Function F200VAR()
Local aValores := PARAMIXB[01]
Local aArea := GetArea()
Local cIdCnab := SubStr(aValores[16],38,10) /// Captura do ID Cnab
Local nCartorio:= Round(Val(SubStr(aValores[16],199,15))/100,2)
//aValores := ( { cNumTit, dBaixa, cTipo, cNsNum, nDespes, nDescont, nAbatim, nValRec, nJuros, nMulta, nOutrDesp, nValCc, dDataCred, cOcorr, cMotBan, xBuffer,dDtVc,{} })
// Posiciona no Registro do Titulo
If SE1->(dbSetOrder(16), dbSeek(xFilial("SE1")+cIdCnab))
If RecLock("SE1",.f.)
SE1->E1_ACRESC := nCartorio
SE1->E1_SDACRE := SE1->E1_SDACRE + nCartorio
SE1->(MsUnlock())
Endif
Endif
RestArea(aArea)
Return
User Function F200VAR()
Local aValores := PARAMIXB[01]
Local aArea := GetArea()
Local cIdCnab := SubStr(aValores[16],38,10) /// Captura do ID Cnab
Local nCartorio:= Round(Val(SubStr(aValores[16],199,15))/100,2)
//aValores := ( { cNumTit, dBaixa, cTipo, cNsNum, nDespes, nDescont, nAbatim, nValRec, nJuros, nMulta, nOutrDesp, nValCc, dDataCred, cOcorr, cMotBan, xBuffer,dDtVc,{} })
// Posiciona no Registro do Titulo
If SE1->(dbSetOrder(16), dbSeek(xFilial("SE1")+cIdCnab))
If RecLock("SE1",.f.)
SE1->E1_ACRESC := nCartorio
SE1->E1_SDACRE := SE1->E1_SDACRE + nCartorio
SE1->(MsUnlock())
Endif
Endif
RestArea(aArea)
Return
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Tempo para a criação da página:0.106 segundos