FiveTech Software tech support forums

Code: Select all | Expand

///////////////
// CLASS TEnvoltorioFacturaElectronica
//
//
// Clase envoltorio para la clase TFacturaElectronica de
// Manuel Calero Sol¡s. (Gracias Manuel)
///////////////////////////////////////////////////////////////////////////
#Include "FiveWin.Ch"
*
//-------------------------------------------------------------------------//
// Ejemplo de la clase
// Hay que asignar los datos en el metodo ::AsignaDatos()
FUNCTION TestFacturaElectronica()
Local oEnv

oEnv:= TEnvoltorioFacturaElectronica():New()

oEnv:cNif   := "43787173S"
oEnv:cNumFac:= "A-00001/13"
oEnv:cCli   := "43000001"
oEnv:lFirmar:= .f.
oEnv:lEnviar:= .t.

oEnv:Activate()

IF oEnv:lError
   oEnv:ShowErr()
   oenv:showmsg()
ENDIF

RETURN NIL
*
*
*
*
//-------------------------------------------------------------------------//
CLASS TEnvoltorioFacturaElectronica

   METHOD New()
   METHOD Activate()

   DATA cNif                   // Obligatorio. Al menos para firmar
   DATA cNumFac                // Obligatorio. Nº de factura.
   DATA cCli                   // Obligatorio. Codigo de cliente de la fra.
   DATA lFirmar                // Opcional. Si se quiere o no firmar
   DATA lEnviar                // Opcional. Si se quiere enviar por email

   DATA cPathGuardar    HIDDEN // Opcional. Por si se quiere tener almacen de fras. enviadas
   DATA cFileXml        HIDDEN // Fichero xml resultante
   DATA cFileXmlFir     HIDDEN // Fichero xml resultante firmado, si se llega a firmar

   DATA oFactuE         HIDDEN
   DATA oTree           HIDDEN

   METHOD InstanciaClase() HIDDEN
   METHOD AsignaDatos()    HIDDEN
   METHOD GeneraXml()      HIDDEN

   DATA lError          READONLY

   METHOD ShowMsg()     INLINE ::oTree:ShowMsg()  // Muestra todos los mensajes de error y no error
   METHOD ShowErr()     INLINE ::oTree:ShowErr()  // Muestra solo los mensajes que son de error

ENDCLASS
*
//-------------------------------------------------------------------------//
METHOD New()                  CLASS TEnvoltorioFacturaElectronica
::lFirmar:= .t.
::lEnviar:= .t.
::lError := .f.
RETURN Self
*
//-------------------------------------------------------------------------//
METHOD Activate()             CLASS TEnvoltorioFacturaElectronica

::InstanciaClase()

::AsignaDatos()

::GeneraXml()
::lError:= ::oTree:lError()
RETURN NIL
*
//-------------------------------------------------------------------------//
METHOD InstanciaClase()          CLASS TEnvoltorioFacturaElectronica
Local cIniFile:= FileCarValidos(::cCli+ Space(1)+ ::cNumFac) // Quitar (o sustituir) caracteres no validos para nombre de archivo
*
::cFileXml:= cIniFile+ ".Xml"
IF ::lFirmar
   ::cFileXmlFir:= cIniFile+ "Fir"+ ".Xml"
ENDIF
*
::oTree:= TSimulateTreeForFacturaElectronica():New()
*
::oFactuE:= TFacturaElectronica():New(::oTree)
*
IF ::lFirmar
   ::cFileXml   := cIniFile+ " - Origen.Xml"
   ::cFileXmlFir:= cIniFile+ ".Xml"
   *
ELSE
   ::cFileXml   := cIniFile+ ".Xml"
   ::cFileXmlFir:= NIL
ENDIF
::oFactuE:cFicheroOrigen := ::cFileXml
::oFactuE:cFicheroDestino:= ::cFileXmlFir
*
//-------------------------------------------------------------------------//
METHOD AsignaDatos()             CLASS TEnvoltorioFacturaElectronica

// AQUI asignar estos datos
::oFactuE:nTotalGrossAmount              := 0
::oFactuE:nTotalGeneralDiscounts         := 0
::oFactuE:nTotalGeneralSurcharges        := 0
::oFactuE:nTotalGrossAmountBeforeTaxes   := 0
::oFactuE:nTotalTaxOutputs               := 0
::oFactuE:nTotalTaxesWithheld            := 0
::oFactuE:nInvoiceTotal                  := 0
::oFactuE:nTotalOutstandingAmount        := 0
::oFactuE:nTotalExecutableAmount         := 0
::oFactuE:nTotalReimbursableExpenses     := 0
::oFactuE:nInvoiceTotalAmount            := 0

// AQUI asignar oSellerParty y oBuyerParty
::oFactuE:oSellerParty                   := ::oFactuE:oSellerParty
::oFactuE:oBuyerParty                    := ::oFactuE:oBuyerParty

// AQUI rellenar estos arrays
::oFactuE:aTax                           := {}
::oFactuE:aDiscount                      := {}
::oFactuE:aItemLine                      := {}
::oFactuE:aInstallment                   := {}
RETURN NIL
*
*
//-------------------------------------------------------------------------//
METHOD GeneraXml()             CLASS TEnvoltorioFacturaElectronica

::oFactuE:GeneraXml()

IF ::lFirmar
   ::oFactuE:Firma()
   ::oFactuE:VerificaFirma()
ENDIF

IF ::lEnviar
   ::oFactuE:Enviar()
ENDIF

RETURN NIL
*
//-------------------------------------------------------------------------//
// Esta clase simula un objeto oTree que utiliza Manuel en su clase parece
// ser para obtener informacion de la generacion xml de la factura.
// Nosotros simulamos esa clase para, primero aprovechar su uso y segundo,
// dejar intacto el codigo de Manuel.
CLASS TSimulateTreeForFacturaElectronica

   METHOD New()
   METHOD Add()
   METHOD Expand()       INLINE NIL

   DATA nNivel INIT 1    HIDDEN

   DATA aMsg    INIT {}  HIDDEN
   DATA aMsgErr INIT {}  HIDDEN

   METHOD ShowMsg()
   METHOD ShowErr()
   METHOD lError()       INLINE !Empty(::aMsgErr)

ENDCLASS
*
//-------------------------------------------------------------------------//
METHOD New()            CLASS TSimulateTreeForFacturaElectronica

RETURN Self
*
//-------------------------------------------------------------------------//
// nTipoMsg: 1 Ok, vacio error.
METHOD Add(cTexto, nTipoMsg)   CLASS TSimulateTreeForFacturaElectronica
Local oTree

oTree:= TSimulateTreeForFacturaElectronica():New()
oTree:nNivel:= Self:nNivel+ 1
*

Aadd(::aMsg, {cTexto, nTipoMsg})
IF Empty(nTipoMsg)
   Aadd(::aMsgErr, {cTexto, nTipoMsg})
ENDIF
RETURN oTree
*
//-------------------------------------------------------------------------//
METHOD ShowMsg()        CLASS TSimulateTreeForFacturaElectronica
Local cMsg
#Define MSG_ a[1]+ Space(1)+ "["+ hb_ValToStr(a[2])+ "]"
cMsg:= Arr2String(::aMsg, {|a| MSG_ }, CRLF )
*
MsgInfo(cMsg, "Mensajes")
RETURN NIL
*
//-------------------------------------------------------------------------//
METHOD ShowErr()        CLASS TSimulateTreeForFacturaElectronica
Local cMsg
*
cMsg:= Arr2String(::aMsgErr, {|a| MSG_ }, CRLF )
*
MsgInfo(cMsg, "Errores")
RETURN NIL
*

*
//---------------------------------------------------------------------------//
// Funciones que faltan para compilar la clase de Manuel Calero
FUNCTION nRouDiv()   ; RETURN 2
FUNCTION FullCurDir(); RETURN CurDriveDir()
FUNCTION DToIso(d)
Local c
c:= Str(Year(d),  4)+ "-"+;
    Str(Month(d), 2)+ "-"+;
    Str(Day(d),   2)
RETURN c
*
//-------------------------------------------------------------------------//
STATIC FUNCTION FileCarValidos(c); RETURN c
*
//-------------------------------------------------------------------------//
STATIC FUNCTION Arr2String( aList, bMTransform, cSep)
local i, cList := ''

DEFAULT cSep:= ","


IF bMTransform == NIL
   bMTransform:= {|x, nPos| x }
ENDIF

for i = 1 to Len( aList )
    cList += Eval(bMTransform, aList[ i ], i) + cSep
next

return Left( cList, Len( cList ) - Len( cSep ) )