ALIAS HELP
VARIAVEL zLL = 0
VARIAVEL LST_TP = 58
variavel zFgECF   = (wOpcao=1 .and. s_sys_paf .and. oECF:EcfLigado)
variavel zLineLen = if(zFgECF, oEcf:s_df_LenLinhasObs, if(wOpcao=1, val(xGetEnv('COLUNAS_IMPRESSORA_ROLO','48')) , 48) )
VARIAVEL oMRPrint = if(zFgECF, NIL, MR_Print():New( s_arq_prn , if(wOpcao=1,3,0), .t. ) )
variavel vLines={}

variavel zNil = aAdd(vLines, 'Extrato de Quitacao '+if(m_fvalpendente>0,'PARCIAL','TOTAL') )
variavel zNil = aAdd(vLines, 'Cliente: '+strzero(m_fcli,6)+'-'+wcCrNome )
variavel zNil = aAdd(vLines, 'Data do Recebimento....: '+Dtoc(S_datual)+' as '+time())

variavel zNil = aAdd(vLines, repl('=',zLineLen) )

variavel zNil = aAdd(vLines, 'Debito R$ '+Ltrim(Transform(wSaldo,'@E 999,999,999.99')) )
variavel zNil = aAdd(vLines, 'Valor Recebido: R$ '+Ltrim(Transform(m_fvales,'@E 999,999,999.99')) )
variavel zNil = aAdd(vLines, 'Valor Quitado.: R$ '+Ltrim(Transform(m_fvalquitado,'@E 999,999,999.99')) )
variavel zNil = aAdd(vLines, 'Valor do Troco: R$ '+Ltrim(Transform(m_fvales-m_fvalquitado,'@E 999,999,999.99')) )

variavel zNil = aAdd(vLines, repl('=',zLineLen) )

variavel zNil = aAdd(vLines, 'Debito Pendente: R$ '+Ltrim(Transform(m_fvalpendente,'@E 999,999,999.99'))  )
//variavel zNil = aAdd(vLines, 'Dt.Venc Deb.Pendente: ' )
//variavel zNil = aAdd(vLines, 'Numero do Titulo: ' )

variavel zNil = aAdd(vLines, repl('=',zLineLen) )

COMANDO ANTES Abra('0NOIDX', '', 'mem:_ProdCli', '_ProdCli')
COMANDO ANTES Abra('0NOIDX', '', 'mem:_DuplCli', '_DuplCli')
COMANDO ANTES DbGoBottom()

ARQUIVO _DUPLCLI

COMANDO ANTES zNil = RptCols('init')

COMANDO ANTES zNil = RptCols('add', 'NumDoc;cr_num_ped;C;999999xx;  8;N;')
COMANDO ANTES zNil = RptCols('add', 'Emissao;cr_dt_emis;D;; 10;N;' )
COMANDO ANTES zNil = RptCols('add', 'Valor;cr_Valor;N;@E 99999.99;8;N;')
COMANDO ANTES zNil = RptCols('add', 'Vencto;cr_dt_venc;D;; 10;N;')
COMANDO ANTES zNil = RptCols('add', 'Val Lqd/Ad;cr_Val_lqd;N;@E 99999.99; 8;S;')
COMANDO ANTES zNil = RptCols('add', 'Usuario;cr_usuario;C;@s8;8;N;')

// {CR_AREC","N",11,2} )
// {"fg_fat","C",1,0} ) 
// {"mvalordia","N",10,2} ) 
// {"fval","N",10,2} ) 
// {"correcao","N",10,2} ) 
// {"FcodFunc","N",11,0} )
// {"AssNome","C",25,0} )
// {"CR_JUROS","N",10,2} )
// {"CR_SALDO","N",12,2} )

COMANDO ANTES zNil = aAdd(vLines, RptCols('GET_CABECALHO') )
COMANDO ANTES zNil = aAdd(vLines, repl('=',zLineLen) )
COMANDO ANTES dbgotop()

COMANDO DURANTE zNil = aAdd(vLines, RptCols('GET_DETALHE') )


ARQUIVO _PRODCLI

COMANDO ANTES zNil = RptCols('init')

COMANDO ANTES zNil = RptCols('add', 'Prod;PCOD;N;99999;5;;')         
COMANDO ANTES zNil = RptCols('add', 'Desc;pDesc;C;@S20;20;;')        
COMANDO ANTES zNil = RptCols('add', 'Quant;MQUANT;N;9999999;7;;')    
COMANDO ANTES zNil = RptCols('add', 'Valor;MVALOR;N;999999.99;9;;')  
COMANDO ANTES zNil = RptCols('add', 'Data;MDATA;D;;8;;')             
COMANDO ANTES zNil = RptCols('add', 'NumPed;FNUMPED;N;999999;6;;')   

COMANDO ANTES zNil = aAdd(vLines, ""  )
COMANDO ANTES zNil = aAdd(vLines, ""  )
COMANDO ANTES zNil = aAdd(vLines, RptCols('GET_CABECALHO') )
COMANDO ANTES zNil = aAdd(vLines, repl('=',zLineLen) )
COMANDO ANTES dbgotop()

COMANDO DURANTE zNil = aAdd(vLines, RptCols('GET_DETALHE') )

COMANDO DEPOIS zNil= if(zFgECF, RelGerPrt(vLines), oMRPrint:ArrayToPdf( vLines, 9 ) )
COMANDO DEPOIS zNil= if(zFgECF, NIL, oMRPrint:Finish(.T.) )
