Problema con SaveAs
Publicado por Carolina (150 intervenciones) el 06/05/2020 23:54:26
Hola amigos! ahora tengo un problema mas simple, tengo un datawindow el cual por cada fila hice un campo calculado para que me lo muestre en bloque para despues levantar todo en un RTE
Este es mi codigo
El problema es que el archivo de texto me lo genera con comillas al principio y al final de cada campo (es decir, al ppio y al final de cada cf_informe)
No encuentro donde esta el problema, mi campo cf_informe tiene lo siguiente:
me genera este archivo de texto:
Esta todo bien!!! Salvo las comillas al principio y al final de cada bloque...HAY FORMA DE SACARLAS??? NO SE QUE HICE MAL
GRACIAS!!!!!
Este es mi codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
For v_ret = 1 to datawin.rowcount()
dw_rte.insertrow(0)
dw_rte.scrolltorow(dw_rte.rowcount())
dw_rte.setitem(dw_rte.rowcount(), 1, datawin.getitemstring(v_ret, "cf_informe"))
Next
v_ret = GetFileSaveName ( "Guardar Como", ls_path, ls_file, "TXT","TXT Files (*.txt),*.txt" , "C:\", 32770)
If v_ret = -1 then
messagebox("Error","Hubo un error al generar el archivo")
elseif v_ret = 1 thenIf dw_rte.SaveAs(ls_path, Text!, FALSE) = 1 then
messagebox("Atención " ,"El archivo fue generado exitosamente!")
End if
End if
El problema es que el archivo de texto me lo genera con comillas al principio y al final de cada campo (es decir, al ppio y al final de cada cf_informe)
No encuentro donde esta el problema, mi campo cf_informe tiene lo siguiente:
1
If( gtv_consultas_fecha = Min( gtv_consultas_fecha for all), space(50) + 'Resumen de Historia Clínica' + space(25) + ' Fecha de emisión: ' + String(Today(), "dd/mm/yyyy") + char(13) + char(13) + char(13) + 'Paciente: ' + Trim( gtv_pacientes_n_paciente ) + space(10) + Trim( gtv_pacientes_tipo_documento ) + ' Nº: ' + Trim(String( gtv_pacientes_nro_documento )) + CHAR(13) + If( gtv_pacientes_telefono = '' OR Isnull( gtv_pacientes_telefono ), space(1), 'TELEFONO : ' + Trim( gtv_pacientes_telefono ) + If(edad = '', space(1), space(5) + ' EDAD = ' + edad )) + char(13) + If(gtv_obras_sociales_n_os = '' , space(1), 'Obra Social : ' + Trim( gtv_obras_sociales_n_os ) + If( gtv_pacientes_nro_afiliado = '', space(1), ' Nº Afiliado = ' + Trim(gtv_pacientes_nro_afiliado ))) + char(13) + char(13), space(1)) + 'Fecha: ' + String( gtv_consultas_fecha , 'dd/mm/yyyy') + char(13) + If( gtv_consultas_id_estudio = 0, 'Control Medico Dr. ' + Trim( gtv_medicos_n_medico ), Trim( gtv_tipos_estudios_n_estudio ) + ' - Dr. ' + Trim( gtv_medicos_n_medico )) + char(13) + If(not isnull( gtv_consultas_observaciones ), 'INFORME : ' + Trim( gtv_consultas_observaciones), space(1)) + char(13) + If(not isnull( gtv_consultas_diagnostico ), 'DIAGNOSTICO: ' + gtv_consultas_diagnostico, space(1)) + CHAR(13) + If (not isnull( gtv_consultas_tratamiento ), 'TRATAMIENTO: ' + gtv_consultas_tratamiento, space(1)) + CHAR(13) + If (not isnull( gtv_consultas_analisis ), 'ANALISIS PREVIOS: ' + gtv_consultas_analisis , space(1))+ CHAR(13) + If (not isnull( gtv_consultas_texto_secretaria ), 'COMENTARIOS: ' + gtv_consultas_texto_secretaria , space(1))
me genera este archivo de texto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
" Resumen de Historia Clínica Fecha de emisión: 06/05/2020Paciente: ABDALA SARA DNI Nº: 4076381TELEFONO : 489-2504 EDAD = 82 añosFecha: 23/04/2012Control Medico Dr.INFORME : 23-4-12 dr soria .- Ojos muy irritados + edema punctum lagrimales.- Rp Fotamicin cada 6hs.-DIAGNOSTICO: En estudioTRATAMIENTO: No anotado "" Fecha: 17/05/2012Control Medico Dr.INFORME : No recabadaDIAGNOSTICO: En estudioTRATAMIENTO: No anotado "" Fecha: 09/04/2013Control Medico Dr.INFORME : LENTES 8/10OD E+2.75 C-0.75*60OI E+2.00 C-0.75*80ADD E+2.75CONTINUA CON ALERGIA CON TTODIAGNOSTICO: En estudioTRATAMIENTO: No anotado "" Fecha: 13/05/2014Control Medico Dr.INFORME : pidio turno por urg y quiere lentesexplico que debe pedir turno el primer dia habil del mesrefiere molestias tamblojo secoagrimasDIAGNOSTICO: En estudioTRATAMIENTO: No anotado "" Fecha: 30/07/2014Control Medico Dr.INFORME : lentes repito recetaindico dexalergin crema y comp para la alergiaDIAGNOSTICO: En estudioTRATAMIENTO: No anotado "" Fecha: 25/09/2018Control Medico Dr.INFORME : rcdice que tiene una ampolla en el lagrimal del odbmc ao cataratas. quiste parp inf medial pequeño.avcc 0.7 con +2 -1 a 85avcc 0.7 con +1 -1 a 80cerca add ao +3.25DIAGNOSTICO: En estudioTRATAMIENTO: No anotado "Esta todo bien!!! Salvo las comillas al principio y al final de cada bloque...HAY FORMA DE SACARLAS??? NO SE QUE HICE MAL
GRACIAS!!!!!
Valora esta pregunta


0