forked from martintoloza/ToLozano
-
Notifications
You must be signed in to change notification settings - Fork 0
/
CGEAYUCH.PRG
123 lines (111 loc) · 4.55 KB
/
CGEAYUCH.PRG
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
// Programa.: CGEAYUCH.PRG >>> Martin A. Toloza Lozano <<<
// Notas....: VISTA Ayuda de los Cheques.
#include "Fivewin.ch"
MEMVAR oApl
//------------------------------------//
CLASS TChq FROM TNits
METHOD NEW( nOpc ) Constructor
METHOD Mostrar()
METHOD Muestra()
ENDCLASS
/*
CREATE VIEW ingresov AS
SELECT c.empresa, c.fecha, c.banco, c.cta_cte, c.documento, c.comprobant, n.nombre
FROM cgeingre c, cadclien n
WHERE (c.codigonit = n.codigo_nit)
CREATE VIEW chequesv AS
SELECT c.empresa, c.fecha, c.banco, c.cta_cte, c.cheque, c.comprobant, n.nombre
FROM chequesc c, cadclien n
WHERE (c.codigonit = n.codigo_nit)
*/
//------------------------------------//
METHOD NEW( nOpc ) CLASS TChq
LOCAL oBase
::aV := { { "ingresov","nombre, fecha","R.de Caja" },;
{ "chequesv","nombre, fecha","Cheques" },;
{ "cadfactv","nombres, fecha","Pendientes" } }
//oBase := oApl:Abrir( "chequesv","empresa, banco, cta_cte" )
oBase := oApl:Abrir( ::aV[nOpc,1],::aV[nOpc,2],.t.,,100 )
Super:New( oBase )
If nOpc == 3
::aOrden := { {"Dociden",1},{"Nombre" ,2} }
Else
::aOrden := { {"Nombre",7},{"Fecha" ,2},;
{"Banco" ,3},{"Cuenta",4} }
EndIf
::bEditar := ::bNew := ::bVer := {|| MsgStop( "Solo para Ayuda" ) }
::xVar := "Ayuda de los " + ::aV[nOpc,3]
RETURN NIL
//------------------------------------//
METHOD Mostrar() CLASS TChq
LOCAL bHacer, nOrd, oDlg, oM := Self
LOCAL lReturn := .f.
::oDb:cWhere := " empresa = " + LTRIM(STR(oApl:nEmpresa))
bHacer := {||lReturn := ::lBuscar := .t., oDlg:End()}
nOrd := ::Ordenar( 1 )
DEFINE DIALOG oDlg FROM 3, 3 TO 22, 54 TITLE ::xVar
@ 1.5, 0 LISTBOX ::oLbx FIELDS ;
::oDb:NOMBRE , DTOC(::oDb:FECHA) ,;
::oDb:BANCO , ::oDb:CTA_CTE ;
HEADERS "Nombre", "Fecha", "Código"+CRLF+"Banco",;
"Cuenta"+CRLF+"Corriente" ;
SIZES 400, 450 SIZE 200,107 ;
OF oDlg UPDATE ;
ON DBLCLICK EVAL(bHacer)
::oLbx:nClrBackHead := oApl:nClrBackHead
::oLbx:nClrForeHead := oApl:nClrForeHead
::oLbx:SetColor(oApl:nClrFore,oApl:nClrBack)
::oLbx:nClrBackFocus := oApl:nClrBackFocus
::oLbx:nClrForeFocus := oApl:nClrForeFocus
::oLbx:nHeaderHeight := 28
::oLbx:GoTop()
::oLbx:oFont := ::oFont
::oLbx:aColSizes := {200,70,60,60}
::oLbx:aHjustify := {2,2,2,2}
::oLbx:aJustify := {0,0,0,0}
::oLbx:ladjbrowse := ::oLbx:lCellStyle := .f.
::oLbx:ladjlastcol := .t.
::oLbx:bKeyChar := {|nKey,nFlags| ::cBus := ::BuscaInc( nKey ), oDlg:Update() }
::oLbx:bKeyDown := {|nKey| If(nKey==VK_RETURN , EVAL(bHacer),;
If(GetKeyState(VK_CONTROL) .AND. nKey=76, EVAL(::bBuscar),) ) }
MySetBrowse( ::oLbx, ::oDb )
@ 8.7,1 SAY ::aOrden[ ::nOrden,1 ] + ": " + ::cBus ;
OF oDlg UPDATE COLOR CLR_BLACK, NIL SIZE 390,18 FONT ::oFont
ACTIVATE DIALOG oDlg CENTER ON INIT (oM:Barra( .t.,oDlg ))
RETURN lReturn
//------------------------------------//
METHOD Muestra() CLASS TChq
LOCAL bHacer, nOrd, oDlg, oM := Self
LOCAL lReturn := .f.
bHacer := {||lReturn := ::lBuscar := .t., oDlg:End()}
nOrd := ::Ordenar( 1 )
DEFINE DIALOG oDlg FROM 3, 3 TO 22, 70 TITLE ::xVar
@ 1.5, 0 LISTBOX ::oLbx FIELDS ::oDb:DOCIDEN ,;
::oDb:NOMBRES, ::oDb:FECHA ,;
STR(::oDb:NUMFAC) ;
HEADERS "Documento ID", "Nombre", "Fecha"+CRLF+"Entrada",;
"Nro."+CRLF+"Factura" ;
SIZES 400, 450 SIZE 260,107 ;
OF oDlg UPDATE ;
ON DBLCLICK EVAL(bHacer)
::oLbx:nClrBackHead := oApl:nClrBackHead
::oLbx:nClrForeHead := oApl:nClrForeHead
::oLbx:SetColor(oApl:nClrFore,oApl:nClrBack)
::oLbx:nClrBackFocus := oApl:nClrBackFocus
::oLbx:nClrForeFocus := oApl:nClrForeFocus
::oLbx:nHeaderHeight := 28
::oLbx:GoTop()
::oLbx:oFont := ::oFont
::oLbx:aColSizes := {80,200,134,60}
::oLbx:aHjustify := {2,2,2,2}
::oLbx:aJustify := {0,0,0,1}
::oLbx:ladjbrowse := ::oLbx:lCellStyle := .f.
::oLbx:ladjlastcol := .t.
::oLbx:bKeyChar := {|nKey,nFlags| ::cBus := ::BuscaInc( nKey ), oDlg:Update() }
::oLbx:bKeyDown := {|nKey| If(nKey==VK_RETURN , EVAL(bHacer),;
If(GetKeyState(VK_CONTROL) .AND. nKey=76, EVAL(::bBuscar),) ) }
MySetBrowse( ::oLbx, ::oDb )
@ 8.7,1 SAY ::aOrden[ ::nOrden,1 ] + ": " + ::cBus ;
OF oDlg UPDATE COLOR CLR_BLACK, NIL SIZE 390,18 FONT ::oFont
ACTIVATE DIALOG oDlg CENTER ON INIT (oM:Barra( .t.,oDlg ))
RETURN lReturn