DLL_SAMSUNG       

// Programa       : DLL_SAMSUNG.PRG
// Fecha/Hora     : 28/07/2022 13:23:22
// Propósito      : Proveer las funciones para imprimir mediante Impresora Fiscal SAMSUNG
// Creado Por     : Marlon Ramos/Juan Navas
// Llamado por    :
// Aplicación     :
// Tabla          :

#INCLUDE “DPXBASE.CH”

// MEMVAR oDp,status,error,nContEnc

FUNCTION MAIN(cTipDoc,cNumero)
   LOCAL cPuerto :=oDp:cImpFisCom
   LOCAL cError :=””,nError

   DEFAULT cTipDoc:=”TIK”,;
           cNumero:=SQLGETMAX(“DPDOCCLI”,”DOC_NUMERO”,”DOC_TIPDOC”+GetWhere(“=”,cTipDoc))

   IF !TYPE(“oSAMSUNG”)=”O”
     TDpClass():New(NIL,”oSAMSUNG”)
   ENDIF

   oSAMSUNG:hDll :=NIL
   oSAMSUNG:cName :=”EPSON”
   oSAMSUNG:cFileDll:=”tfhkaif.dll”
   oSAMSUNG:cEstatus:=””
   oSAMSUNG:oFile :=NIL
   oSAMSUNG:lError :=.F.
   oSAMSUNG:nContEnc:=0
   oSAMSUNG:cTipDoc :=cTipDoc
   oSAMSUNG:cNumero :=cNumero
   oSAMSUNG:cFileLog:=”TEMP\”+cNumero+”.LOG”

   IF !FILE(oSAMSUNG:cFileDll)
     MsgMemo(“No se Encuentra Archivo “+oSAMSUNG:cFileDll)
     RETURN NIL
   ENDIF

   oSAMSUNG:oFile :=TFile():New(oSAMSUNG:cFileLog)

   oDp:nSAMSUNGDll := If(oDp:nSAMSUNGDll == nil,LoadLibrary(cFileDll),oDp:nSAMSUNGDll )
   cPuerto := If(cPuerto == nil,”COM1″,cPuerto )

   IF ValType(oDp:nSAMSUNGDll)!=”N” .And. oDp:nSAMSUNGDll!=0

     cError:=SAMSUNG_ERROR(999,.T.)

   ELSE

     nError:=DpOpenFpctrl(cPuerto)
     IF nError != 1 .And. nError != 0
        cError:=SAMSUNG_ERROR(nError,.T.,.T.)
     ENDIF

     IF !EMPTY(cError)
         oSAMSUNG:lError:=.T.
         DpCloseFpctrl ()
     ENDIF

   ENDIF

   oSAMSUNG:cError :=cError

RETURN oSAMSUNG

FUNCTION SAMSUNG_ERROR(nRet,lShow,lVerifPto)
   LOCAL cError:=””

   lShow := If(lShow == nil,.T.,lShow )
   lVerifPto:= If(lVerifPto == nil,.F.,lVerifPto )

   IF nRet=1 .Or. (nRet = 0 .And. !lVerifPto)
     RETURN “”
   ENDIF

   cError:=”desconocido Nº: “+STR(nRet)

   IF nRet= 0
     cError:=”Puerto no Abierto”
   ENDIF

   IF nRet= -1
     cError:=”Parámetro inválido”
   ENDIF

   IF nRet= -2
     cError:=”Parámetro Inválido”
   ENDIF

   IF nRet=-3
     cError:=”Aliquota no programada”
   ENDIF

   IF nRet=-4
     cError:=”Archivo tfhkaif.INI no encontrado, copielo en “+oDp:cBin
   ENDIF

   IF nRet=-5
     cError:=”Error en Apertura, Posiblemente ya está Abierto el Puerto”
   ENDIF

   IF nRet=-6
     cError:=”Ninguna Impresora fué Encontrada, Verifique si está Encendida o Conectada al Cable Serial o USB”
   ENDIF

   IF nRet = -8
     cError:=”Error al Crear o Grabar en el Archivo status.txt o retorno.txt “
   ENDIF

   IF nRet = 137
     cError:=”Impresora No Conectada o Apagada”
   ENDIF

   IF nRet = 999
     cError:=”No se puedo cargar archivo tfhkaif.dll”
   ENDIF

   cError:=”Error:”+LSTR(nRet)+”, “+cError

oSAMSUNG:oFile:AppStr(cError)

   IF lShow
     MensajeErr(cError,”Error Impresora SAMSUNG”)
   ENDIF

RETURN cError

FUNCTION DpAbreTick(cRif,cCliente,cTel,cDir,cDir2,cNumero,cTipDoc)
   LOCAL nAncho:=IIF(“ACLAS”$UPPE(oDp:cImpFiscal),21,25)

   oSAMSUNG:cError :=””

   oSAMSUNG:SamsungENC(“Cliente : “+Left(cCliente,nAncho))

   IF Len(cCliente) > nAncho
     oSAMSUNG:SamsungENC(Substr(cCliente,nAncho+1,35))
   ENDIF

   oSAMSUNG:SamsungENC(“CI / RIF: “+cRif)

   IF !Empty(cTel)
     oSAMSUNG:SamsungENC(IIF(cTipDoc=”DEV”,””,”Telefono: “)+cTel)
   ENDIF

   IF !Empty(cDir)
     oSAMSUNG:SamsungENC(cDir)
   ENDIF

   IF !Empty(cDir2)
     oSAMSUNG:SamsungENC(cDir2 )
   ENDIF

   oSAMSUNG:SamsungENC(Replicate(“-“,35))
   oSAMSUNG:SamsungENC(“Ticket N: “+cNumero)

RETURN EMPTY(oSAMSUNG:cError)

FUNCTION SamsungENC(cTextEnc)
   LOCAL cIni,nStatus,nError,cError,lCadena

   oSAMSUNG:nContEnc:=oSAMSUNG:nContEnc+1

   cIni:=ALLTRIM(STR(oSAMSUNG:nContEnc,2,0))
   cIni:=”i”+REPLICATE(“0”,2-LEN(cIni))+cIni

   oSAMSUNG:DpSendCmd(@nStatus,@nError,cIni+Left(cTextEnc,35))
 cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)

RETURN cError

FUNCTION DpImpItem (nPrecio,nCantid,cDescri,cTipIva,nDesc,cTipDoc,cComent)
   LOCAL cIni,lStatus,nError,nStatus,cError,cTasa:=””,cPrecio,cCant

   cPrecio:=STRZERO(nPrecio,11,2 )
   cPrecio:=STRTRAN(cPrecio ,”.”,””)
   cCant :=STRZERO(nCantid,09,3)
   cCant :=STRTRAN(cCant ,”.”,””)

   IF cTipIva = “EX”
      cTasa:=IIF(cTipDoc!=”DEV”,” “,”d0”)
   ENDIF

   IF cTipIva = “GN”
      cTasa:=IIF(cTipDoc!=”DEV”,”!”,”d1″)
   ENDIF

   IF cTipIva = “RD”
      cTasa:=IIF(cTipDoc!=”DEV”,'”‘,”d2″)
   ENDIF

   IF cTipIva = “S1”
      cTasa:=IIF(cTipDoc!=”DEV”,”#”,”d3″)
   ENDIF

   oSAMSUNG:DpSendCmd(@nStatus,@nError,cTasa+cPrecio+cCant+ALLTRIM(PADR(cDescri,40)))
   cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)

   IF nDesc > 0
      oSAMSUNG:DpSendCmd(@nStatus,@nError,”p-“+SINDEC(nDesc,4))
      cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)
   ENDIF

   IF !EMPTY(cComent)
      oSAMSUNG:DpSendCmd(@nStatus,@nError,”@”+cComent)
      cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)
   ENDIF

RETURN !EMPTY(cError)

FUNCTION DpImpSub(nDesc,nRecargo)
   LOCAL cDesc,nStatus,nError,cError

   oSAMSUNG:DpSendCmd(@nStatus,@nError,”3″)
   cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)

   IF nDesc>0
      cDesc :=oSAMSUNG:SINDEC(nDesc,4)
      DpSendCmd(@nStatus,@nError,”p-“+cDesc)
      cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)
   ENDIF

   IF nRecargo>0
      cDesc:=oSAMSUNG:SINDEC(nRecargo,4)
      oSAMSUNG:DpSendCmd(@nStatus,@nError,”p+”+cDesc)
      cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)
   ENDIF

RETURN !EMPTY(cError)

FUNCTION DpImpPag(aTipoPago,cTipDoc)
   LOCAL nCont:=1,nStatus,nError,cError

   IF cTipDoc = “DEV”

      oSAMSUNG:DpSendCmd(@nStatus,@nError,”f07000000000000″)
      cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)

   ELSE

     FOR nCont=1 TO LEN(aTipoPago)
         oSAMSUNG:DpSendCmd(@nStatus,@nError,RIGHT(aTipoPago[nCont],LEN(aTipoPago[nCont])-1))
         cError:=oSAMSUNG:SAMSUNG_ERROR(nError,.T.)
     NEXT

   ENDIF

RETURN !EMPTY(cError)

FUNCTION SINDEC(nMonto,nLen,nDec)
   LOCAL cPrecio,nAt,nPor

   nDec :=IIF(nDec=NIL,2,nDec)
   nPor :=VAL(“1″+REPLI(“0”,nDec))
   cPrecio:=ALLTRIM(STR(nMonto*nPor))
   nAt :=AT(“.”,cPrecio)

   cPrecio:=LEFT(cPrecio,nAt-1)
   cPrecio:=REPLI(“0”,nLen-LEN(cPrecio))+cPrecio

RETURN cPrecio

FUNCTION SAMSUNG_END()

   oSAMSUNG:DpCloseFpctrl()

   IF oDp:nSAMSUNGDll<>NIL
      FreeLibrary(oDp:nSAMSUNGDll)
      oDp:nSAMSUNGDll:=NIL
   ENDIF

   IF !oSAMSUNG:oFile=NIL
      oSAMSUNG:oFile:Close()
   ENDIF

RETURN .T.

/*
// Funciones de la DLL
*/
FUNCTION DpOpenFpctrl(lpPortName )
   LOCAL cFarProc:= GetProcAddress(oDp:nSAMSUNGDLL,If(Empty(“OpenFpctrl” ) == .t.,”DpOpenFpctrl”,”OpenFpctrl” ),.T.,7,9 )
   LOCAL uResult := CallDLL(cFarProc,lpPortName )
RETURN uResult

FUNCTION DpCloseFpctrl()
  LOCAL cFarProc:= GetProcAddress(oDp:nSAMSUNGDLL,If(Empty(“CloseFpctrl” ) == .t.,”DpCloseFpctrl”,”CloseFpctrl” ),.T.,7 )
  LOCAL uResult := CallDLL(cFarProc )
RETURN uResult

FUNCTION DpReadFpStatus(status ,error )
  LOCAL cFarProc:= GetProcAddress(oDp:nSAMSUNGDLL,If(Empty(“ReadFpStatus” ) == .t.,”DpReadFpStatus”,”ReadFpStatus” ),.T.,7,10 ,10 )
  LOCAL uResult := CallDLL(cFarProc,@status ,@error )

  oSAMSUNG:oFile:AppStr(“DpReadFpStatus:”+CTOO(status,”C”)+”,”+CTOO(error,”C”))

RETURN uResult

FUNCTION DpSendCmd(status,error,cmd )
    LOCAL cFarProc := GetProcAddress(oDp:nSAMSUNGDLL,If(Empty(“SendCmd” ) == .t.,”DpSendCmd”,”SendCmd” ),.T.,7,10 ,10,9 )
    LOCAL uResult := CallDLL(cFarProc,@status ,@error,@cmd )

    oSAMSUNG:oFile:AppStr(“DpSendCmd:”+CTOO(status,”C”)+”,”+CTOO(error,”C”)+”,”+CTOO(cmd,”C”))

RETURN uResult

FUNCTION DpSendFileCmd(status ,error,file )
  LOCAL cFarProc:= GetProcAddress(oDp:nSAMSUNGDLL,If(Empty(“SendFileCmd” ) == .t.,”DpSendFileCmd”,”SendFileCmd” ),.T.,7,10 ,10,9 )
  LOCAL uResult := CallDLL(cFarProc,@status ,@error,@file )

  oSAMSUNG:oFile:AppStr(“DpSendFileCmd:”+CTOO(status,”C”)+”,”+CTOO(error,”C”)+”,”+CTOO(file,”C”))

RETURN uResult

// EOF

Solicitar Soporte Tecnicoscreen tag