e os parametros para impressao, envio via email, etc.Código: Selecionar todos
...
Function IntegraBoletoPro
BolCMD := [ -M /P /QE ] + ;
[ "/F:Boletos.csv" ]
cMacro := [BoletoPRO\boletoPRO.exe ] + BolCMD
MsgRun( "Gerando Impressao.." )
//memowrit( "boletos.bat", cMacro )
WinExec( cMacro, 7 )
if file( "boletos.log" )
MapiLOG := memoread( "boletos.log" )
if "ERROR" $ Upper(MapiLOG)
MsgStop( MapiLOG )
endif
fErase( "boletos.log" )
endif
return .t.
...
Código: Selecionar todos
...
FUNCTION ImprimeBDOC( dDataProc ,;
dVencimento ,;
nValor ,;
cNossoNumero ,;
dDataDoc ,;
cEspecie ,;
cDocumento ,;
cAceite ,;
cInstrucao ,;
cSacado ,;
cCNPJ ,;
cEndereco ,;
nNumero ,;
cComplemento ,;
cBairro ,;
cCidade ,;
cEstado ,;
cCEP ,;
nParcela ,;
nParcelas ,;
cEmail, lEmail )
LOCAL nHandle, nLenght, cHeader
DEFAULT dDataProc := date() ,;
dVencimento := date() + 30 ,;
nValor := 49.25 ,;
cNossoNumero := "" ,;
dDataDoc := date() ,;
cEspecie := "RC" ,;
cDocumento := "DOC_A_123" ,;
cAceite := "" ,;
cInstrucao := "NAO RECEBER APOS O VENCIMENTO" ,;
cSacado := "JOSE CARLO DA ROCHA" ,;
cCNPJ := "123.456.789-00" ,;
cEndereco := "R DR MARIO MAURO RAMOS MATOSO" ,;
nNumero := 50 ,;
cComplemento := "CASA 2" ,;
cBairro := "PIRITUBA" ,;
cCidade := "SAO PAULO" ,;
cEstado := "SP" ,;
cCEP := "05171-340" ,;
nParcela := 0 ,;
nParcelas := 0 ,;
cEmail := "irochinha@itelefonica.com.br"
cPathBLPRO := VerifyINI( "BOLETOPRO", "DIRETORIO", cPath+"\BoletoPRO" , cPath+"nfw.ini", .f. )
if file( cPathBLPRO+"\BoletoPRO.exe" )
cHeader := "Data Processamento;Vencimento;Valor Documento;Nosso Número;Data Documento;Espécie Documento;Número Documento;Aceite;Instruções;Sacado;CNPJ;Rua;Número;Complemento;Bairro;Cidade;Estado;CEP;Parcela;NParcelas;E-Mail"+chr(13)+chr(10)
cHeader += dtoc( dDataProc ) + ";"
cHeader += dtoc( dVencimento ) + ";"
cHeader += transf( nValor, "@e 999999.99" ) + ";"
cHeader += cNossoNumero + ";"
cHeader += dtoc( dDataDoc ) + ";"
cHeader += cEspecie + ";"
cHeader += cDocumento + ";"
cHeader += cAceite + ";"
cHeader += cInstrucao + ";"
cHeader += cSacado + ";"
cHeader += cCNPJ + ";"
cHeader += cEndereco + ";"
cHeader += str( nNumero, 4 ) + ";"
cHeader += cComplemento + ";"
cHeader += cBairro + ";"
cHeader += cCidade + ";"
cHeader += cEstado + ";"
cHeader += cCEP + ";"
cHeader += strzero(nParcela,3) + ";"
cHeader += strzero(nParcelas,3) + ";"
cHeader += cEmail
//
nHandle := fCreate(cPathBLPRO+"\boletos.csv")
fWrite( nHandle, cHeader, LEN(cHeader) )
fClose( nHandle )
if lEmail // MsgYesNo("Voce deseja enviar este boleto por email?") // empty(cEmail)
WaitRun( cPathBLPRO+[\BoletoPRO.exe -M /E /QM /QE "/F:]+cPathBLPRO+[\boletos.csv"] )
else
WaitRun( cPathBLPRO+[\BoletoPRO.exe -M /P /QM /QE "/F:]+cPathBLPRO+[\boletos.csv"] )
endif
else
MsgStop( "BoletoPRO nao instalado." )
endif
RETURN .T.
...