Moderador: Moderadores
CASE ::cCodBco == "104" // Caixa
** Cedente e DV, OK Testado **
::cDvCDPF := DC_Mod11(::cCodBco, 9, .F., ::cCDPF )
** xx **
** NossoNumero e DV, OK Testado **
::cTipoCob := "14"
cAux_NN := ::cTipoCob + ::cNossoNumero // 14 = Modalidade Nosso Numero P/ Cobranca (1)Registrada + Forma de Envio (4)Cedente
//cAux_NN := ::cTipoCob + ::cNossoNumero
::cDGNN := DC_Mod11(::cCodBco, 9, .F., cAux_NN )
cNsNm := ::cTipoCob + '/' + ::cNossoNumero + '-' + ::cDGNN // (JANIO)
** xx **
cAgcc := ::cNumAgencia + "/" + ::cCDPF + "-" + ::cDvCDPF
** Campo Livre e DV, OK Testado **
Aux_Livre := ::cCDPF + ::cDvCDPF + ;
SubStr( ::cNossoNumero, 1, 3 ) + SubStr( ::cTipoCob, 1, 1 ) + ; // Constante1, cTipoCob (1)Registrada, (2) Sem Registro
SubStr( ::cNossoNumero, 4, 3 ) + SubStr( ::cTipoCob, 2, 1 ) + ; // Constante2, cTipoCob (4)Emissao Cedente, (1)Caixa Via Correio, Agencia ou Email ( Forma de Envio )
SubStr( ::cNossoNumero, 7, 9 )
DG_Livre := DC_Mod11(::cCodBco, 9, .F., Aux_Livre )
cCpoLivre := Aux_Livre + DG_Livre
** xx *
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes