ALIAS OSOT
outroarq sccrcli
outroarq sf_vend
outroarq se_prod seip_c pcod
outroarq vb_crm vb_crm crm

variavel zDtIni = ctod("")
variavel zDtFim = ctod("")
variavel zDtEntIni = ctod("")
variavel zDtEntFim = ctod("")
variavel zSitOs = 1
variavel vOpcoes := { {'&1. Todas as OS       ',1},{'&2. Apenas OS abertas ',2},{'&3. Apenas OS Fechadas',3}  }

T5,10,19,55,Parametros 

T2,2,Situacao da OS:,1,zSitOs,9,;RADIOGROUP vOpcoes;

T8,3,Data de Chegada Inicial....:,8,zDtIni,99.99.9999 
T9,3,Data de Chegada Final......:,8,zDtFim,99.99.9999 

T11,3,Previsao de Entrega Inicial:,8,zDtEntIni,99.99.9999 
T12,3,Previsao de Entrega Final..:,8,zDtEntFim,99.99.9999 

comando antes zTipoDeOsSelecionadas = if(zSitOs<=1,"Todas",if(zSitOs=2,"Apenas Abertas","Apenas Fechadas"))

filtro zSitOs = 1 .or. (zSitOs=2.and.day(fdatasai)=0) .or. (zSitOs=3.and.day(fdatasai)>0)
filtro Day(zDtIni)=0.or.fDataPed>=zDtIni
filtro Day(zDtFim)=0.or.fDataPed<=zDtFim

filtro Day(zDtEntIni)=0.or.fDtPrevEnt>=zDtEntIni
filtro Day(zDtEntFim)=0.or.fDtPrevEnt<=zDtEntFim

comando durante sccrcli->(DbGoto(osot->cr_cod_cli))
comando durante sf_vend->(DbGoto(osot->fVendedor))
comando durante vb_crm->(DbSeek(osot->crm))

comando durante znil = se_prod->(dbseek(osot->LOD_PCOD))
comando durante zPdescLenteOlhoDireito = se_prod->pdesc
comando durante znil = se_prod->(dbseek(osot->LOe_PCOD))
comando durante zPdescLenteOlhoEsquerdo = se_prod->pdesc
comando durante znil = se_prod->(dbseek(osot->arm_PCOD))
comando durante zPdescArmacao = se_prod->pdesc

// comando durante znil = PrtFormRtf("osot", "rtf", .t.)

C[empresa] $ Data: [s_datual] as [time()]
cRelacao de Ordens de Servico $ Pagina[Pag 9999]
c
cTipo de OS Selecionadas: [zTipoDeOsSelecionadas]
cPeriodo de Emissao entre [zDtIni] e [zDtFim] 
cPrevisao de Entrega entre [zDtEntIni] a [zDtEntFim]
c
c-------------------------------------------------------------------
cOS    DataEnt HoraEnt CodCli NomeCli     Prev.Ent  Vendedor  Valor
c===================================================================

d[fNumOs 999999] [fdataped] [fhora] [cr_Cod_cli 9999] [zCrNome] [fDtPrevEnt] [fHrPrevEnt] [fvendedor 9999] [zVndNome] [fval 99999.99]

comando durante zCrNome = sccrcli->cr_nome
comando durante zVndNome = sf_vend->nome

ultpag
ultpag Numero de OS Listadas: [zQtdOs 999999]
ultpag Valor das OS Listadas: [zValOs 999999.99]

variavel zQtdOs = 0
variavel zValOs = 0
comando durante zQtdOs = zQtdOs + 1
comando durante zValOs = zValOs + fval