-
Notifications
You must be signed in to change notification settings - Fork 14
/
Copy pathcfdcomplementopagos.prg
111 lines (91 loc) · 2.32 KB
/
cfdcomplementopagos.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
*** CFDComplementoPagos ByVigar. Foxlatino.
*** Marco Vinicio García Vargas Actualización.
* Implementa el complemento para Impuestoss
** Modified by: Julián May.
** JWM Feb 2017 - Se modifica el prefijo Impuestos: por Impuestos12.
* --
** Modified by: Julián May.
** JWM Ene 2017 - Se agrega el soporte de varios nodos para SubContratacion.
* --
** Modified by: Julián May
** JMD Dic 2016
* --
** Autores: Victor Espina / Arturo Ramos
**
** ARC Mar 17, 2014 - Se Agrega soporte para nodos Percepciones, Retenciones, Incapacidades y Horasextras
*******
DEFINE CLASS CFDComplementoPagos AS ICFDAddenda
*
#DEFINE CFD_OPCIONAL .T.
nodeName = "Complemento" && Define el nombre del nodo (por defecto es Addenda)
Version = "1.0"
Pago10 = NULL
PROCEDURE Init
DODEFAULT()
THIS.Pago10 = CREATEOBJECT("CFDComplementoPagosPago10")
ENDPROC
PROCEDURE Version_Assign(vNewVal)
ENDPROC
*
ENDDEFINE
* Pago10
* CFDComplementoPagosPago10
* Representa los datos del nodo "Pago10:Pago"
*
DEFINE CLASS CFDComplementoPagosPago10 as Custom
FechaPago = ''
FormaDePagoP = ''
MonedaP = ''
TipoCambioP = 0.00
Monto = 0.00
NumOperacion = ''
RfcEmisorCtaOrd = ''
NomBancoOrdExt = ''
CtaOrdenante = ''
RfcEmisorCtaBen = ''
CtaBeneficiario = ''
pagos = NULL
PROCEDURE Init()
DODEFAULT()
THIS.pagos = CREATEOBJECT("CFDComplementoPagosxPago10")
ENDPROC
ENDDEFINE
* CFDComplementoPagosPago10
* Representa los datos del nodo "Pago10:Pago"
DEFINE CLASS CFDComplementoPagosxPago10 AS Custom
FechaPago = ''
FormaDePagoP = ''
MonedaP = ''
TipoCambioP = 0.00
Monto = 0.00
NumOperacion = ''
RfcEmisorCtaOrd = ''
NomBancoOrdExt = ''
CtaOrdenante = ''
RfcEmisorCtaBen = ''
CtaBeneficiario = ''
DoctoRelacionado = NULL
PROCEDURE Init()
DODEFAULT()
THIS.DoctoRelacionado = CREATEOBJECT("CFDComplementoDoctoRelacionado")
ENDPROC
ENDDEFINE
* DoctoRelacionado
* CFDComplementoDoctoRelacionados
* Representa los datos del nodo "Pago10:DoctoRelacionado"
*
DEFINE CLASS CFDComplementoDoctoRelacionado as Custom
IdDocumento = ''
Serie = ''
Folio = ''
MonedaDR = ''
TipoCambioDR = ''
MetodoDePagoDR = ''
NumParcialidad = ''
ImpPagado = 0.00
ImpSaldoAnt = 0.00
ImpSaldoInsoluto = 0.00
PROCEDURE Init()
DODEFAULT()
ENDPROC
ENDDEFINE