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

VARIAVEL zNumOs = if(type("zbPrtOs")<>"U", z_recno, RecCount() )

VARIAVEL hDadosEmp   = IdUsuarioPaf('Ler')
VARIAVEL zEmpnome    = hDadosEmp["EMP_NOME"]
VARIAVEL zEmprua     = hDadosEmp["EMP_RUA"]+" "+hDadosEmp["EMP_NUMRUA"]
VARIAVEL zEmpbairro  = hDadosEmp["EMP_BAIRRO"]
VARIAVEL zEmpcep     = hDadosEmp["EMP_CEP"]
VARIAVEL zEmpcidade  = hDadosEmp["EMP_CIDADE"]
VARIAVEL zEmpuf      = hDadosEmp["EMP_UF"]
VARIAVEL zEmpfone    = hDadosEmp["EMP_FONE"]
VARIAVEL zEmpinscest = hDadosEmp["EMP_IE"]
VARIAVEL zEmpisncmun = hDadosEmp["EMP_IM"]
VARIAVEL zEmail      = hDadosEmp["EMP_EMAIL"]
VARIAVEL zEmpcgc     = FormataCnpjCpf(hDadosEmp["CNPJ"])
VARIAVEL zEmpFantasia= hDadosEmp["EMP_FANTASIA"]

//TEMPLATE_RTF OS_OT.RTF

T10,10,16,60,Parametros 
T2,2,Codigo Ordem de Servico:,5,zNumOs,99999 

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

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

REPITA ENQUANTO zNumOs=RECNO() 

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

comando antes znil = Setprc(0,0)
C [FR_EVAL(M_ENFAT)][empresa] [FR_EVAL(M_NAOENFAT)]
C [si_rua]
C ORDEM DE SERVICO NUMERO: [FR_EVAL(M_ENFAT)][STRZERO(zNumOs,6)][FR_EVAL(M_NAOENFAT)],    Impresso em: [date()], Solicitado em: [fdataped] 
C [REPL("-",79)]
C [FR_EVAL(M_ENFAT)] DADOS DO CLIENTE [FR_EVAL(M_NAOENFAT)]
C Cliente    : [zCodCli] - [FR_EVAL(M_ENFAT)][sccrcli->cr_nome] [FR_EVAL(M_NAOENFAT)]
C Endereco   : [sccrcli->cr_rua @s25] [sccrcli->CR_CEP] Fone: [sccrcli->cr_fone] 
C Complemento: [sccrcli->Cr_CIDADE] - [sccrcli->Cr_UF] 

C [REPL("-",79)]
C        OD                LONGE                      OE
C 	ESF...:[ODLESF]								ESF...:[OELESF] 
C 	CIL...:[ODLCIL]	EIXO:[ODLEIXO]			   CIL...:[OELCIL]	EIXO:[OELEIXO] 
C 	CIL...:[ODLCIL]								CIL...:[OELCIL]
C 	PRISMA:[ODLCIL]								PRISMA:[OELCIL]
C
C 	PP....:[ODLCIL]								DATA:[DPDATA]
C
C        OD                PERTO                      OE
C 	ESF...:[ODPESF]								ESF...:[OEPESF] 
C 	CIL...:[ODPCIL]	EIXO:[ODPEIXO]			   CIL...:[OEPCIL]	EIXO:[OEPEIXO] 
C 	CIL...:[ODPCIL]								CIL...:[OEPCIL]
C 	PRISMA:[ODPCIL]								PRISMA:[OEPCIL]
C
C 	DP:[DP]								ADICAO:[ADICAO]
C
C 	ARMACAO:[PCOD1] [PDESC1 @S20]
C 	REF....:[PREF1]		TAMANHO:[PTAM1]
C 	LENTE..:[PCOD2] [PDESC2 @S20]	COR:[PCOR2]
C 	REF....:[PREF2]		TIPO:[PTIPO]
C 	OBS....:[FOBS @S20]
C 	PRECO..:[PRECO]		PC:[PC]		SALDO:[SALDO]
C
C	DATA ENTREGA: [FDATAENT]	HORA ENTREGA: [FHORAENT]
C
C [FR_EVAL(M_ENFAT)]    _____________________________________________
C [zCodCli 999999] - [FR_EVAL(M_ENFAT)][cr_nome] [FR_EVAL(M_NAOENFAT)] 

ULTPAG [FR_EVAL(M_NAOENFAT)] 
ULTPAG [REPL("_",79)] 


d OS/Receituário [fnumos 9999999999]
d Codigo Cliente [CR_COD_CLI 99999]      
d Atendente/Vendedor:[fvendedor 9999]  [sf_vend->nome]
d 
d Data da OS: [fdataped]        Prev.Entrega: [fdtprevent] as [fHrPrevEnt]
d 
d Data da Receita Medica: [mdatarecei]
d 
d Ametropia: [Ametropia]
d CRM Medico:[CRM]  [vb_crm->medico]
d 
d Observacao: [obs]
d 
d Cod/Descricao Lente do Olho Direito: [LOD_PCOD] [zPdescLenteOlhoDireito] 
d Preco da Lente do Olho Direito: [lod_pvenda 99999.99]
d Material da Lente do Olho Direito: [lod_mat]
d
d Cod/Descricao Lente do Olho Esquerdo: [LOE_PCOD] [zPdescLenteOlhoEsquerdo] 
d Preco da Lente do Olho Esquerdo: [loe_pvenda 99999.99]
d Material da Lente do Olho Esquerdo: [loe_mat]
d 
d Cod/Descricao Armacao: [arm_pcod] [zPdescArmacao] 
d Preco da Armacao: [arm_pvenda 99999.99]
d Material da Armacao: [arm_mat]
d 
d Medidas:
d Diagonal Maior: [MEDID_DIAG]
d Horizontal: [MEDID_hori]
d Ponte:[MEDID_pont]
d Vertical:[MEDID_vert]
d 
d Longe Olho Direito:
d Esf [L_OD_ESF]     
d Cil [L_OD_cil]     
d Eix [L_OD_eixo]    
d DNP [L_OD_dnp]     
d Alt [L_OD_altur]   
d Adic[L_OD_adic]    
d Pri [L_OD_prism]   
d Bas [L_OD_base]    
d Co  [L_OD_co]      
d Pel [L_OD_PEL]     
d DP  [L_OD_DP]      
d 
d Longe Olho Esquerdo:
d Esf [L_Oe_ESF]     
d Cil [L_Oe_cil]     
d Eix [L_Oe_eixo]    
d DNP [L_Oe_dnp]     
d Alt [L_Oe_altur]   
d Adic[L_Oe_adic]    
d Pri [L_Oe_prism]   
d Bas [L_Oe_base]    
d Co  [L_Oe_co]      
d Pel [L_Oe_PEL]     
d DP  [L_Oe_DP]      
d 
d Perto Olho Direito:
d Esf [p_OD_ESF]     
d Cil [p_OD_cil]     
d Eix [p_OD_eixo]    
d DNP [p_OD_dnp]     
d Alt [p_OD_altur]   
d Adic[p_OD_adic]    
d Pri [p_OD_prism]   
d Bas [p_OD_base]    
d Co  [p_OD_co]      
d Pel [p_OD_PEL]     
d DP  [p_OD_DP]      
d 
d Perto Olho Esquerdo:
d Esf [p_Oe_ESF]     
d Cil [p_Oe_cil]     
d Eix [p_Oe_eixo]    
d DNP [p_Oe_dnp]     
d Alt [p_Oe_altur]   
d Adic[p_Oe_adic]    
d Pri [p_Oe_prism]   
d Bas [p_Oe_base]    
d Co  [p_Oe_co]      
d Pel [p_Oe_PEL]     
d DP  [p_Oe_DP]      
d 
d Entrada ou Data da OS: [fdataped]
d Data Prevista para Entrega: [fdtprevent] as [fHrPrevEnt]
d 
d Preço da Armação: [arm_pvenda 99999.99]
d Preço das Lentes: [lod_pvenda+loe_pvenda 99999.99]
d Total Armação+Lente: [arm_pvenda+lod_pvenda+loe_pvenda 99999.99]
d Sinal Recebido: [favalpago]
d Restante a Receber: [fval-favalpago]
d
