ALIAS SF_DAV
VARIAVEL zNil = sf_dav->( DbGoto( wFatpRecno ) )
VARIAVEL zfNumDav = fNumDav
VARIAVEL zFnumCoo = if( val(fNumCoo)=0, '______', fNumCoo )
VARIAVEL zEmpNome = 'EMPRESA EMITENTE'
VARIAVEL zEmpCNPJ = '99.999.999/9999-99'
// VARIAVEL zEmpNome = hDadosEmp["EMPRESA"]
// VARIAVEL zEmpCNPJ = hDadosEmp["CNPJ"]
VARIAVEL zfCli    = fCli
VARIAVEL zNomeDav = xGetEnv("DAV_NOME")
VARIAVEL zNomeDav = if(empty(zNomeDav), "PEDIDO", zNomeDav)

VARIAVEL zLL = 0
VARIAVEL LST_TP   = 58
VARIAVEL zFgOpenCli   = (Select('sccrcli')=0)
VARIAVEL zFgOpenProd  = (select('se_prod')=0)
VARIAVEL zFgOpenDavPc = (select('sf_davpc')=0)
VARIAVEL zFgOpenDavmv = (select('sf_davmv')=0)
VARIAVEL zSele        = Select()
VARIAVEL zNil = if(zFgOpenCli,     Abra('0NOIDX', r_siga, 'sccrcli','sccrcli'), '')
VARIAVEL zNil = if(zFgOpenProd,    Abra('0NOIDX', r_siga, se_prod,'se_prod',seip_c,'pcod'), '')
VARIAVEL zNil = if(zFgOpenDavPc,   Abra('0NOIDX', r_siga, 'sf_davpc', 'sf_davpc', 'sf_davpc', 'fnumped'), '')
VARIAVEL zNil = if(zFgOpenDavmv,   Abra('0NOIDX', r_siga, 'sf_davmv', 'sf_davmv', 'sf_davmv', 'fnumped'), '')
VARIAVEL zNil = DbSelectArea(ZSele)
variavel zNil = sccrcli->(DbGoto( zfCli ))

VARIAVEL sPrtLineLen = 80

VARIAVEL Z_NUMNOTAS = 0
VARIAVEL Z_PRODS = 0
VARIAVEL Z_UNIDS = 0
VARIAVEL Z_TVALOR = 0
VARIAVEL Z_TPVENDA = 0
VARIAVEL Z_FDATAEMI = FDATAEMI
VARIAVEL Z_FVAL     = FVAL
VARIAVEL Z_TIPOVND  = "VdaMista"
VARIAVEL Z_TIPOVND  = IF(FTIPOVEN="1","DINHEIRO",z_tipovnd)
VARIAVEL Z_TIPOVND  = IF(FTIPOVEN="2","CHEQUE",Z_TIPOVND)
VARIAVEL Z_TIPOVND  = IF(FTIPOVEN="3","CARTAO",Z_tIPOVND)
VARIAVEL Z_TIPOVND  = IF(FTIPOVEN="4","DUPLICATA",Z_TIPOVND)

REPITA ENQUANTO zfNumDav = fNumDav

variavel vLines={}
comando antes zNil= RelGerCmd( 'RELGER_ABRE')
comando antes zNil= RelGerCmd( 'RELGER_USA','DOCUMENTO AUXILIAR DE VENDA - '+zNomeDav )
comando antes zNil= RelGerCmd( 'RELGER_USA','NAO E DOCUMENTO FISCAL - NAO E VALIDO COMO RECIBO')
comando antes zNil= RelGerCmd( 'RELGER_USA','E COMO GARANTIA DE MERCADORIA' )
comando antes zNil= RelGerCmd( 'RELGER_USA','E NAO COMPROVA PAGAMENTO' )
comando antes zNil= RelGerCmd( 'RELGER_USA',Repl("=",45) )
comando antes zNil= RelGerCmd( 'RELGER_USA','Estabelecimento Emitente:' )
comando antes zNil= RelGerCmd( 'RELGER_USA',Repl("-",45) )
comando antes zNil= RelGerCmd( 'RELGER_USA','Emit:'+zEmpNome )
comando antes zNil= RelGerCmd( 'RELGER_USA','CNPJ: '+zEmpCnpj )
comando antes zNil= RelGerCmd( 'RELGER_USA',Repl("=",45) )
comando antes zNil= RelGerCmd( 'RELGER_USA','Destinatario:' )
comando antes zNil= RelGerCmd( 'RELGER_USA',Repl("-",45) )
comando antes zNil= RelGerCmd( 'RELGER_USA','Dest:'+alltrim(sccrcli->cr_nome) )
comando antes zNil= RelGerCmd( 'RELGER_USA','Cnpj/Cpf:'+alltrim(SCCRCLI->CR_CGC) )
comando antes zNil= RelGerCmd( 'RELGER_USA',Repl("=",45) )
comando antes zNil= RelGerCmd( 'RELGER_USA','Numero do Documento.: '+StrZero(zfNumDav,10))
comando antes zNil= RelGerCmd( 'RELGER_USA','Num Doc Fiscal (COO): '+zFnumCoo)

SUBLIST sf_davpc
   COMANDO ANTES zLL=0
   COMANDO ANTES sf_davpc->(DbSeek( zFnumDav ))
   REPITA ENQUANTO fNumPed = zfNumDav
   COMANDO DURANTE zLL = zLL + 1

   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA',Repl("=",45) ) , '')
   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA','td   Prazo       Valor  Vencto' ) , '')
   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA',Repl("-",45) ) , '')

   COMANDO DURANTE zNil= RelGerCmd( 'RELGER_USA',CR_TIP_DUP + str(fPrazo,3)+' '+Transform(cr_valor,'@E 999999.99') + ' '+dtoc(s_datual+fprazo) ) 
   
FIM SUBLIST

SUBLIST sf_davmv
   COMANDO ANTES zLL=0
   COMANDO ANTES zNil = Set(11,'off')
   COMANDO ANTES sf_davmv->(DbSeek( zFnumDav ))
   REPITA ENQUANTO FNUMPED = zfNumDav
   FILTRO fg_sit<>'A'
   COMANDO DURANTE zPcod   = COD
   COMANDO DURANTE SE_PROD->(DBSEEK(zPcod))
   COMANDO DURANTE Z_PRODS    = Z_PRODS  + if(!deleted(), 1,         0)
   COMANDO DURANTE Z_UNIDS    = Z_UNIDS  + if(!deleted(), QUANT,     0)
   COMANDO DURANTE Z_TVALOR   = Z_TVALOR + if(!deleted(), PrTotal,   0)
   COMANDO DURANTE zLL = zLL + 1   
   COMANDO DURANTE zDesc = AllTrim(SE_PROD->PDESC)+" "+ if( Deleted() .and. fg_sit=' ', '* Cancelado *', '')


   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA',Repl("=",45) ) , '')
   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA','Cod Descricao' + ' '+'   Qtd  VlUnit VlTotal') , '')


//   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA','Cod Descricao' ) , '')
//   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA','   Qtd  VlUnit VlTotal' ) , '')
   COMANDO DURANTE zNil= if(zll=1, RelGerCmd( 'RELGER_USA',Repl("-",45) ) , '')

//   COMANDO DURANTE zNil= RelGerCmd( 'RELGER_USA',Str(zPcod,6)+' '+zdesc ) 
//   COMANDO DURANTE zNil= RelGerCmd( 'RELGER_USA',Str(Quant,4)+' '+Str(PrUnit,6,2)+' '+Str(PrTotal,8,2) ) 


   COMANDO DURANTE zNil= RelGerCmd( 'RELGER_USA',Str(zPcod,6)+' '+pad(zdesc,20) +' '+Str(Quant,4)+' '+Str(PrUnit,6,2)+' '+Str(PrTotal,8,2) ) 

   COMANDO DEPOIS zNil= Set(11,'on')
FIM SUBLIST

COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA',Repl("=",45) )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA','TOTAL DO '+zNomeDav+' : '+Transform(z_tvalor,'@e 999,999.99') )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA',Repl("=",45) )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA','' )
COMANDO DEPOIS zNil= RelGerCmd( 'RELGER_USA','E vedada a autenticacao deste documento' )


COMANDO DEPOIS zNil= if(zFgOpenCli, sccrcli->(DbCloseArea()), '')
COMANDO DEPOIS zNil= if(zFgOpenProd, se_prod->(DbCloseArea()), '')
COMANDO DEPOIS zNil= if(zFgOpenDavPc, sf_davpc->(DbCloseArea()), '')
COMANDO DEPOIS zNil= if(zFgOpenDavmv, sf_davmv->(DbCloseArea()), '')

comando DEPOIS zNil= RelGerCmd( 'RELGER_FECHA')
