jppd.dyndns.org/jppd.dyndns.org.tar/jppd.dyndns.org/QUERYPRO/Actualizar/IMPORTSAFT/importsaft.app

MS Visual FoxPro App | 2014-02-19 | 353KB | 10,099 lines

PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _3O10XKA2J1099857137
 WINDOWS _3O10XKA2K1146314406
 WINDOWS _3UH0PJWEZ1145928727
 WINDOWS _3O10XKA2L1145928727
 WINDOWS _3O10XKA2J1145992495
 WINDOWS _3O10XOGPQ1145928433
 WINDOWS _3O10XOGPR1145928727
 WINDOWS _3O10XOGPS1145928433
 WINDOWS _3O10XKA2J1145928727
 WINDOWS _3O10XKA2J1145928727W
 WINDOWS _3O10YKJZ91145928727)
 WINDOWS _3O10XKA2J1145928727
 WINDOWS _3O10YKJZB1146314406\
 WINDOWS _3O10XKA2J1145928727 e
 WINDOWS _3O10YYX9D1145928727
 WINDOWS _3O110C2U81145928433+a
 WINDOWS _3O40XJS9L1145928433W`
 WINDOWS _3UN0ZL3D11145928727x_
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3O10XKA2J1127977090
 WINDOWS _3UN0ZL3D41127977090X]
 WINDOWS _3UN0ZL3D51127977090
 WINDOWS _3UN0ZL3D61127977090
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3UN0ZL3D71128495471
 WINDOWS _3O10XKA2J1127977090HY
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3O10XKA2L1128495471
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3UN125BYX1128495471nT
 WINDOWS _3UN125BYY1128495471
 WINDOWS _3UN125BYZ1128495471
 WINDOWS _3UN125BZ01128495471
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3UN125BZ11128495471
 WINDOWS _3UO0X21XK1128495471
 WINDOWS _3O10XKA2J1128495471?
 WINDOWS _3O10XKA2K1128495471
 WINDOWS _3UO0YHC1E1128495471
 WINDOWS _3UO0YHC1F1128495471
 WINDOWS _3O10XKA2J1099857137
 WINDOWS _3W112Q48H1128495471$
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3W511HADE1128495471
 WINDOWS _3O10XKA2J1128495471
 WINDOWS _3W511HADF1128495471R
 WINDOWS _3W70WK6KJ1128495471
 WINDOWS _3W70WK6KK1128495471
 WINDOWS _3W70WK6KL1128495471
 WINDOWS _3O10XKA2J1145928727
 WINDOWS _3ZY0WQ8141145928727
 WINDOWS _3O10XKA2J1145928727
 WINDOWS _3ZY0WQ8151145930396
 WINDOWS _3ZY0WQ8161145998461
 WINDOWS _3ZY0WQ8171145928727
 WINDOWS _3ZY0WQ8181145928198
 WINDOWS _3ZY0WQ8191145928198#
 WINDOWS _3ZY0WQ81A11459281985
 WINDOWS _3ZY0WQ81B1145928727J
 WINDOWS _3ZY0WQ81C1145928198
 WINDOWS _3ZY0WQ81D1145928198
 WINDOWS _3ZY0WQ81E1145928198
 WINDOWS _3ZY0XBJ1P1145928727
 WINDOWS _3ZY0XBJ1Q1145928727
 WINDOWS _3ZY0XBJ1R1145928727
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
IMPORTSAFT2
Height = 548
Width = 473
DoCreate = .T.
AutoCenter = .T.
Caption = "Importa
o do Ficheiro SAFT (vendas)"
Icon = ..\shared\icons\qpicon.ico
WindowType = 1
cliente_naci =
cliente_intra =
cliente_outros =
cliente_final =
icon_alerta = "..\shared\icons\alerta.gif"
icon_ok = "..\shared\icons\ok.gif"
icon_notok = "..\shared\icons\notok.gif"
linha_lanc = 0
total_doc = 0.00
erro_documento =
total_ft = 0.00
total_nc = 0.00
wpath =
total_descfin = 0.00
Name = "IMPORTSAFT2"
]wPROCEDURE chave_conta
LPARAMETERS _produto_servico, _taxa_iva
LOCAL lcret
lcret = ""
 Digito, Produto ou Servi
o (P,S,O,I)
DO case
    CASE _produto_servico = "I" && Impostos
        lcret = lcret + "4"
    CASE _produto_servico = "O" && Outras
        lcret = lcret + "3"
    CASE _produto_servico = "S" && Servi
        lcret = lcret + "2"
    OTHERWISE
        lcret = lcret + "1" && Produtos
ENDCASE
 Digito, Tipo de taxa iva (R,I,N,O,S)
DO case
    CASE _taxa_iva = "R" && Reduzida
        lcret = lcret + "1"
    CASE _taxa_iva = "I" && Interm
        lcret = lcret + "2"
    CASE _taxa_iva = "N" && Normal
        lcret = lcret + "3"
    CASE _taxa_iva = "O" && Outra
        lcret = lcret + "4"
    OTHERWISE
        lcret = lcret + "5" && Isenta
ENDCASE
RETURN lcret
ENDPROC
PROCEDURE insere_ft
LPARAMETERS _mes, _dia, _diario, _prox_doc, _desc, _variavel, _nif, _iliq, _iva, _documento, _allow, _allow_iliq, _allow_iva
LOCAL lcconta_ini, lcconta_iva, lccontad, lccontac, lnvalor
lcconta_ini = EVALUATE(_variavel)
lcconta_iva = ""
lccontad = ""
lccontac = ""
lnvalor = 0.00
* lan
a pelo total do documento
IF _allow = 1
    _iliq = _allow_iliq
    _iva = _allow_iva
ENDIF
IF thisform.check_conta(lcconta_ini) = "M"
    IF INLIST(_documento, "FT", "FS", "FR", "ND")
        lccontad = ""
        lccontac = lcconta_ini
    ELSE
        lccontad = lcconta_ini
        lccontac = ""
    ENDIF
    lnvalor = _iliq
    IF _iva = 0
        * Insere conta de vendas
        thisform.insere_linha(_mes, _dia, _diario, _prox_doc, lccontad, lccontac, _desc, lnvalor, .F., "", "")
    ELSE
        lcconta_iva = thisform.get_conta_iva(lcconta_ini)
        IF thisform.check_conta(lcconta_iva) = "M"
            * Insere conta de vendas
            thisform.insere_linha(_mes, _dia, _diario, _prox_doc, lccontad, lccontac, _desc, lnvalor, .F., "", "")
            IF INLIST(_documento, "FT", "FS", "FR", "ND")
                lccontad = ""
                lccontac = lcconta_iva
            ELSE
                lccontad = lcconta_iva
                lccontac = ""
            ENDIF
            lnvalor = _iva
            * Insere conta de iva
            thisform.insere_linha(_mes, _dia, _diario, _prox_doc, lccontad, lccontac, _desc, lnvalor, .F., "", "")
        ELSE
            thisform.erro_documento = "Conta de iva (" + ALLTRIM(lcconta_iva) + ") n
o existe ou n
 de movimento"
        ENDIF
    ENDIF
    thisform.total_doc = thisform.total_doc + _iliq + _iva
    thisform.erro_documento = "Conta de vendas (" + ALLTRIM(lcconta_ini) + ") n
o existe ou n
 de movimento"
ENDIF
ENDPROC
PROCEDURE lastdoc
lparam _mes, _diario
local lnret
lnret = 0
select max(l_docu) from lanca where l_mes = _mes and l_diario = _diario into cursor cs_lastdoc
go top
if eof()
    lnret = 0
    lnret = cs_lastdoc.max_l_docu
endif
return lnret
ENDPROC
PROCEDURE variaveis_declar
PUBLIC saft_cn, saft_ci, saft_co, saft_cc, saft_ftdesc, saft_fsdesc, saft_frdesc, saft_nddesc, saft_ncdesc, Saft_fs, Saft_contafs
PUBLIC saft_1111, saft_1112, saft_1113, saft_1114, saft_1115, saft_1121, saft_1122, saft_1123, saft_1124, saft_1125, ;
       saft_1131, saft_1132, saft_1133, saft_1134, saft_1135, saft_1141, saft_1142, saft_1143, saft_1144, saft_1145
PUBLIC saft_1211, saft_1212, saft_1213, saft_1214, saft_1215, saft_1221, saft_1222, saft_1223, saft_1224, saft_1225, ;
       saft_1231, saft_1232, saft_1233, saft_1234, saft_1235, saft_1241, saft_1242, saft_1243, saft_1244, saft_1245
PUBLIC saft_1311, saft_1312, saft_1313, saft_1314, saft_1315, saft_1321, saft_1322, saft_1323, saft_1324, saft_1325, ;
       saft_1331, saft_1332, saft_1333, saft_1334, saft_1335, saft_1341, saft_1342, saft_1343, saft_1344, saft_1345
PUBLIC saft_2111, saft_2112, saft_2113, saft_2114, saft_2115, saft_2121, saft_2122, saft_2123, saft_2124, saft_2125, ;
       saft_2131, saft_2132, saft_2133, saft_2134, saft_2135, saft_2141, saft_2142, saft_2143, saft_2144, saft_2145
PUBLIC saft_2211, saft_2212, saft_2213, saft_2214, saft_2215, saft_2221, saft_2222, saft_2223, saft_2224, saft_2225, ;
       saft_2231, saft_2232, saft_2233, saft_2234, saft_2235, saft_2241, saft_2242, saft_2243, saft_2244, saft_2245
PUBLIC saft_2311, saft_2312, saft_2313, saft_2314, saft_2315, saft_2321, saft_2322, saft_2323, saft_2324, saft_2325, ;
       saft_2331, saft_2332, saft_2333, saft_2334, saft_2335, saft_2341, saft_2342, saft_2343, saft_2344, saft_2345
RETURN .t.
ENDPROC
PROCEDURE variaveis_clean
saft_cn = ""
saft_ci = ""
saft_co = ""
saft_cc = ""
saft_ftdesc = ""
saft_fsdesc = ""
saft_frdesc = ""
saft_nddesc = ""
saft_ncdesc = ""
Saft_fs = ""
Saft_contafs = 0
saft_1111 = ""
saft_1112 = ""
saft_1113 = ""
saft_1114 = ""
saft_1115 = ""
saft_1121 = ""
saft_1122 = ""
saft_1123 = ""
saft_1124 = ""
saft_1125 = ""
saft_1131 = ""
saft_1132 = ""
saft_1133 = ""
saft_1134 = ""
saft_1135 = ""
saft_1141 = ""
saft_1142 = ""
saft_1143 = ""
saft_1144 = ""
saft_1145 = ""
saft_1211 = ""
saft_1212 = ""
saft_1213 = ""
saft_1214 = ""
saft_1215 = ""
saft_1221 = ""
saft_1222 = ""
saft_1223 = ""
saft_1224 = ""
saft_1225 = ""
saft_1231 = ""
saft_1232 = ""
saft_1233 = ""
saft_1234 = ""
saft_1235 = ""
saft_1241 = ""
saft_1242 = ""
saft_1243 = ""
saft_1244 = ""
saft_1245 = ""
saft_1311 = ""
saft_1312 = ""
saft_1313 = ""
saft_1314 = ""
saft_1315 = ""
saft_1321 = ""
saft_1322 = ""
saft_1323 = ""
saft_1324 = ""
saft_1325 = ""
saft_1331 = ""
saft_1332 = ""
saft_1333 = ""
saft_1334 = ""
saft_1335 = ""
saft_1341 = ""
saft_1342 = ""
saft_1343 = ""
saft_1344 = ""
saft_1345 = ""
saft_2111 = ""
saft_2112 = ""
saft_2113 = ""
saft_2114 = ""
saft_2115 = ""
saft_2121 = ""
saft_2122 = ""
saft_2123 = ""
saft_2124 = ""
saft_2125 = ""
saft_2131 = ""
saft_2132 = ""
saft_2133 = ""
saft_2134 = ""
saft_2135 = ""
saft_2141 = ""
saft_2142 = ""
saft_2143 = ""
saft_2144 = ""
saft_2145 = ""
saft_2211 = ""
saft_2212 = ""
saft_2213 = ""
saft_2214 = ""
saft_2215 = ""
saft_2221 = ""
saft_2222 = ""
saft_2223 = ""
saft_2224 = ""
saft_2225 = ""
saft_2231 = ""
saft_2232 = ""
saft_2233 = ""
saft_2234 = ""
saft_2235 = ""
saft_2241 = ""
saft_2242 = ""
saft_2243 = ""
saft_2244 = ""
saft_2245 = ""
saft_2311 = ""
saft_2312 = ""
saft_2313 = ""
saft_2314 = ""
saft_2315 = ""
saft_2321 = ""
saft_2322 = ""
saft_2323 = ""
saft_2324 = ""
saft_2325 = ""
saft_2331 = ""
saft_2332 = ""
saft_2333 = ""
saft_2334 = ""
saft_2335 = ""
saft_2341 = ""
saft_2342 = ""
saft_2343 = ""
saft_2344 = ""
saft_2345 = ""
RETURN .t.
ENDPROC
PROCEDURE variaveis_release
RELEASE saft_cn, saft_ci, saft_co, saft_cc, saft_ftdesc, saft_fsdesc, saft_frdesc, saft_nddesc, saft_ncdesc, Saft_fs, Saft_contafs
RELEASE saft_1111, saft_1112, saft_1113, saft_1114, saft_1115, saft_1121, saft_1122, saft_1123, saft_1124, saft_1125, ;
        saft_1131, saft_1132, saft_1133, saft_1134, saft_1135, saft_1141, saft_1142, saft_1143, saft_1144, saft_1145
RELEASE saft_1211, saft_1212, saft_1213, saft_1214, saft_1215, saft_1221, saft_1222, saft_1223, saft_1224, saft_1225, ;
        saft_1231, saft_1232, saft_1233, saft_1234, saft_1235, saft_1241, saft_1242, saft_1243, saft_1244, saft_1245
RELEASE saft_1311, saft_1312, saft_1313, saft_1314, saft_1315, saft_1321, saft_1322, saft_1323, saft_1324, saft_1325, ;
        saft_1331, saft_1332, saft_1333, saft_1334, saft_1335, saft_1341, saft_1342, saft_1343, saft_1344, saft_1345
RELEASE saft_2111, saft_2112, saft_2113, saft_2114, saft_2115, saft_2121, saft_2122, saft_2123, saft_2124, saft_2125, ;
        saft_2131, saft_2132, saft_2133, saft_2134, saft_2135, saft_2141, saft_2142, saft_2143, saft_2144, saft_2145
RELEASE saft_2211, saft_2212, saft_2213, saft_2214, saft_2215, saft_2221, saft_2222, saft_2223, saft_2224, saft_2225, ;
        saft_2231, saft_2232, saft_2233, saft_2234, saft_2235, saft_2241, saft_2242, saft_2243, saft_2244, saft_2245
RELEASE saft_2311, saft_2312, saft_2313, saft_2314, saft_2315, saft_2321, saft_2322, saft_2323, saft_2324, saft_2325, ;
        saft_2331, saft_2332, saft_2333, saft_2334, saft_2335, saft_2341, saft_2342, saft_2343, saft_2344, saft_2345
RETURN .t.
ENDPROC
PROCEDURE insere_linha
LPARAMETERS _mes, _dia, _diario, _docu, _contad, _contac, _desc, _valor, _mapar, _tipomapar, _nif
IF EMPTY(_nif) OR _nif = "999999990"
    _mapar = .F.
    _tipomapar = ""
ENDIF
insert into lanca (l_mes, l_dia, l_diario, l_docu, l_linha, l_contad, l_contac, l_desc, l_valor, ;
                   l_mapar, l_tmapar, l_nif, l_concild, l_concilc, l_picd, l_picc, l_datahora) values ;
                  (_mes, _dia, _diario, _docu, thisform.linha_lanc, _contad, _contac, _desc, _valor, _mapar, ;
                   _tipomapar, _nif, "", "", "", "", datetime())
thisform.linha_lanc = thisform.linha_lanc + 1
* Actualiza o plano - Debito
IF !EMPTY(_contad)
    =act_grau_superior(_contad, "D", "+", _valor, _mes)
ENDIF
* Actualiza o plano - Credito
IF !EMPTY(_contac)
    =act_grau_superior(_contac, "C", "+", _valor, _mes)
ENDIF
ENDPROC
PROCEDURE get_conta_iva
LPARAMETERS _conta
LOCAL lcret
lcret = ""
IF xseek(_conta, "plano", "key_1")
    lcret = plano.conta_iva
ENDIF
RETURN lcret
ENDPROC
PROCEDURE get_conta_cliente
LPARAMETERS _nif
LOCAL lcret
lcret = ""
IF xseek(_nif, "cs_plano_nifs", "key_1")
    lcret = cs_plano_nifs.conta
ENDIF
RETURN lcret
ENDPROC
PROCEDURE insere_ft_cliente
LPARAMETERS _mes, _dia, _diario, _prox_doc, _desc, _conta, _nif, _total, _documento
LOCAL lccontad, lccontac
lccontad = ""
lccontac = ""
IF EMPTY(thisform.erro_documento)
    IF INLIST(_documento, "FT", "FS", "FR", "ND")
        lccontad = _conta
    ELSE
        lccontac = _conta
    ENDIF
    thisform.insere_linha(_mes, _dia, _diario, _prox_doc, lccontad, lccontac, _desc, _total, .T., "C", _nif)
    IF _documento = "NC"
        thisform.total_nc = thisform.total_nc + _total
    ELSE
        thisform.total_ft = thisform.total_ft + _total
    ENDIF
ENDIF
ENDPROC
PROCEDURE chave_conta_mercado
LPARAMETERS _nif
LOCAL lcmercado, lcret
lcmercado = ""
lcret = ""
 Digito, Tipo de mercado
lcmercado = thisform.mercado(_nif)
IF lcmercado = "O"
    lcret = "3"
    IF lcmercado = "I"
        lcret = "2"
    ELSE
        lcret = "1"
    ENDIF
ENDIF
RETURN lcret
ENDPROC
PROCEDURE check_conta
LPARAMETERS _conta
LOCAL lcret
lcret = ""
IF SEEK(ALLTRIM(_conta), "plano", "key_1")
    lcret = plano.tipo
ENDIF
RETURN lcret
ENDPROC
PROCEDURE create_conta
LPARAMETERS _conta, _nif, _desc, _morada, _mercado, _tel, _fax, _email
LOCAL lcmorada, lclocalidade, lccodpos, lcconta_gs, lctel, lcfax, lcemail
lcmorada = ""
lclocalidade = ""
lccodpos = ""
lcconta_gs = grau_sup(_conta)
lctel = ALLTRIM(IIF(VARTYPE(_tel) = "L", "", IIF(VARTYPE(_tel) = "N", STR(_tel), _tel)))
lcfax = ALLTRIM(IIF(VARTYPE(_fax) = "L", "", IIF(VARTYPE(_fax) = "N", STR(_fax), _fax)))
lcemail = IIF(VARTYPE(_email) = "L", "", _email)
IF !EMPTY(_morada)
    lcmorada = thisform.extrair_billingaddress(_morada, "#AD")
    lclocalidade = thisform.extrair_billingaddress(_morada, "#CT")
    lccodpos = thisform.extrair_billingaddress(_morada, "#PT")
endif
INSERT INTO PLANO (CONTA, TIPO, DESC, CONTA_GS, CONTA_RFL, CONTRAP, CONTA_IVA, TAXA_IVA, DED_IVA, REGIAO, NIF, ;
                   MERCADO, RECAP, D00, C00, D01, C01, D02, C02, D03, C03, D04, C04, D05, C05, D06, C06, D07, C07, ;
                   D08, C08, D09, C09, D10, C10, D11, C11, D12, C12, D13, C13, D14, C14, D15, C15, CDP, SDP, SADP, ;
                   CDA, SDA, SADA, CDC, SDC, SADC, MORADA, LOCAL, CODPOS, PAIS, TEL, FAX, EMAIL, NIB, CENTRO, ;
                   CHAVER, AFECTA100) VALUES (_conta, "M", _desc, lcconta_gs, "", "", "", 0.0, 0.00, 1, _nif, ;
                      _mercado, 0, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, ;
                   0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0, "", "", ;
                   0, "", "", 0, "", "", lcmorada, lclocalidade, lccodpos, "", lctel, lcfax, lcemail, "", 0, ;
                   0, 0)
INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES ;
            (0, cs_saft_final.tipo_documento, ALLTRIM(cs_saft_final.nr_doc), "Criada conta: " + _conta + " - " + ALLTRIM(_desc))
INSERT INTO cs_plano_nifs (nif, conta) VALUES (_nif, _conta)
RETURN _conta
ENDPROC
PROCEDURE get_conta_disponivel
LPARAMETERS _radical, _nif, _cliente
LOCAL lcradical, lndigitos, lcconta, lnind, lnfim, lcret
lnind = 1
lcret = ""
lcconta = ""
IF AT("C", _radical) > 0
    * Cria
o de conta nr de cliente
    lcradical = ALLTRIM(STRTRAN(_radical, "C", ""))
    lndigitos = OCCURS("C", _radical)
    lcconta = lcradical + PADL(RIGHT(thisform.clean_nrcliente(_cliente), lndigitos), lndigitos, "0")
    IF !SEEK(lcconta, "plano", "key_1")
        lcret = lcconta
    ENDIF
    * Cria
o de conta com NIF
    IF AT("N", _radical) > 0
        lcradical = ALLTRIM(STRTRAN(_radical, "N", ""))
        lndigitos = OCCURS("N", _radical)
        lcconta = lcradical + PADL(RIGHT(thisform.clean_nrcliente(_nif), lndigitos), lndigitos, "0")
        IF !SEEK(lcconta, "plano", "key_1")
            lcret = lcconta
        ENDIF
    ELSE
        * Cria
o de conta variavel (???)
        lcradical = ALLTRIM(STRTRAN(_radical, "?", ""))
        lndigitos = OCCURS("?", _radical)
        lnfim = INT(VAL(REPLICATE("9", lndigitos)))
        FOR lnind = 1 TO lnfim
            lcconta = lcradical + PADL(lnind, lndigitos, "0")
            IF !SEEK(lcconta, "plano", "key_1")
                lcret = lcconta
                exit
            ENDIF
        ENDFOR
    ENDIF
ENDIF
*!*    lcradical = ALLTRIM(STRTRAN(_radical, "?", ""))
*!*    lndigitos = OCCURS("?", _radical)
*!*    lcconta = ""
*!*    lnind = 1
*!*    lnfim = INT(VAL(REPLICATE("9", lndigitos)))
*!*    lcret = ""
*!*    FOR lnind = 1 TO lnfim
*!*        lcconta = lcradical + PADL(lnind, lndigitos, "0")
*!*        IF !SEEK(lcconta, "plano", "key_1")
*!*            lcret = lcconta
*!*            exit
*!*        ENDIF
*!*    ENDFOR
RETURN lcret
ENDPROC
PROCEDURE check_cliente
LPARAMETERS _variavel, _nif, _nome, _morada, _mercado, _tel, _fax, _email, _cliente
LOCAL lcconta_radical, lcconta_nova, lcret
lcconta_radical = UPPER(EVALUATE(_variavel))
lcconta_nova = ""
lcret = ""
lcret = thisform.get_conta_cliente(_nif)
IF EMPTY(lcret)
    lcconta_nova = thisform.get_conta_disponivel(lcconta_radical, _nif, _cliente)
    IF !EMPTY(lcconta_nova)
        lcret = thisform.create_conta(lcconta_nova, _nif, _nome, _morada, _mercado, _tel, _fax, _email)
    ENDIF
ENDIF
RETURN lcret
ENDPROC
PROCEDURE mercado
LPARAMETERS _nif
LOCAL lcpais, lcret, lc_intracomunitarios
lcpais = ""
lcret = ""
lc_intracomunitarios = "DE,AT,BE,BG,CY,HR,DK,SK,SI,ES,EE,FI,FR,GR,HU,IE,IT,LV,LT,LU,MT,NL,PL,GB,CZ,RD,SE"
IF ISALPHA(LEFT(_nif, 1))
    lcpais = LEFT(_nif, 2)
    IF lcpais = "PT"
        lcret = "N"
    ELSE
        IF lcpais $ lc_intracomunitarios
            lcret = "I"
        ELSE
            lcret = "O"
        ENDIF
    ENDIF
    lcret = lcret + "N"
ENDIF
RETURN lcret
ENDPROC
PROCEDURE extrair_billingaddress
LPARAMETERS _morada, _tag
LOCAL lcret, lctrab, lnchars
lcret = ""
lctrab = ""
lnchars = 0
IF !EMPTY(_morada)
    lctrab = SUBSTR(_morada, AT(_tag, _morada) + 3)
    lnchars = AT("#", lctrab) - 1
    IF lnchars < 1
        lnchars = 99
    ENDIF
    lcret = SUBSTR(lctrab, 1, lnchars)
ENDIF
RETURN lcret
ENDPROC
PROCEDURE act_painel
LPARAMETERS _docs_sft, _prox, _last
LOCAL ln_nr_docs_cnt
ln_nr_docs_cnt = _prox - _last - 1
thisform.cntsaft.lbl1doc.Caption = TRANSFORM(_last + 1, "999 999")
thisform.cntsaft.lbl9doc.Caption = TRANSFORM(_prox - 1, "999 999")
thisform.cntsaft.lbldocs_cnt.Caption = TRANSFORM(ln_nr_docs_cnt, "999 999")
thisform.cntsaft.lbltotaldeb_cnt.Caption = TRANSFORM(thisform.total_nc, "999 999 999.99")
thisform.cntsaft.lbltotalcrd_cnt.Caption = TRANSFORM(thisform.total_ft, "999 999 999.99")
IF _docs_sft = ln_nr_docs_cnt
    thisform.cntsaft.lbldocs_sft.ForeColor = RGB(0,128,0)
    thisform.cntsaft.lbldocs_cnt.ForeColor = RGB(0,128,0)
    thisform.cntsaft.img_docs.Picture = thisform.icon_ok
    thisform.cntsaft.img_docs.Picture = thisform.icon_notok
ENDIF
IF thisform.cntsaft.lbltotaldeb_sft.Caption = TRANSFORM(thisform.total_nc, "999 999 999.99")
    thisform.cntsaft.lbltotaldeb_sft.ForeColor = RGB(0,128,0)
    thisform.cntsaft.lbltotaldeb_cnt.ForeColor = RGB(0,128,0)
    thisform.cntsaft.img_totaldeb.Picture = thisform.icon_ok
    thisform.cntsaft.img_totaldeb.Picture = thisform.icon_notok
ENDIF
IF thisform.cntsaft.lbltotalcrd_sft.Caption = TRANSFORM(thisform.total_ft, "999 999 999.99")
    thisform.cntsaft.lbltotalcrd_sft.ForeColor = RGB(0,128,0)
    thisform.cntsaft.lbltotalcrd_cnt.ForeColor = RGB(0,128,0)
    thisform.cntsaft.img_totalcrd.Picture = thisform.icon_ok
    thisform.cntsaft.img_totalcrd.Picture = thisform.icon_notok
ENDIF
thisform.cntsaft.img_docs.Visible = .t.
thisform.cntsaft.img_totaldeb.Visible = .t.
thisform.cntsaft.img_totalcrd.Visible = .t.
ENDPROC
PROCEDURE tipo_conta_cliente
LPARAMETERS _conta
LOCAL lcret
lcret = ""
* V = Variavel (cont
m ???). Cria
o autom
tica de contas.
* F = Fixa. Conta de cliente
nica (n
o cria a conta).
* C = Conta composta com n
 de cliente (n
o cria contas).
* N = Conta composta com o NIF do cliente (n
o cria contas).
DO case
    CASE TYPE(_conta) = "N"
        lcret = "F"
    CASE "?" $ _conta
        lcret = "V"
    CASE "C" $ _conta
        lcret = "C"
    CASE "N" $ _conta
        lcret = "N"
ENDCASE
RETURN lcret
ENDPROC
PROCEDURE clean_nrcliente
LPARAMETERS _nrcliente
LOCAL lcnrcliente, lnind, lcchar, lcret
lcnrcliente = ALLTRIM(IIF(TYPE("_nrcliente") = "N", STR(_nrcliente), _nrcliente))
lnind = 1
lcchar = ""
lcret = ""
FOR lnind = 1 TO LEN(lcnrcliente)
    lcchar = SUBSTR(lcnrcliente, lnind, 1)
    IF lcchar $ "0123456789"
        lcret = lcret + lcchar
    ENDIF
ENDFOR
RETURN lcret
ENDPROC
PROCEDURE serial_first
LPARAMETERS _serial
lbret = .f.
IF _serial = "110388" OR _serial = "110347" OR _serial = "110147" OR _serial = "110377" OR _serial = "110560" OR _serial = "110167"
    lbret = .t.
ENDIF
RETURN lbret
ENDPROC
PROCEDURE load_lista_documentos
LPARAMETERS _ano, _mes
LOCAL lbret
lbret = .t.
SELECT DISTINCT tipo_documento FROM cs_saft_final WHERE YEAR(data_documento) = _ano AND MONTH(data_documento) = _mes ORDER BY tipo_documento INTO CURSOR cs_doc_file
SELECT cs_doc_file
    INSERT INTO cs_lista_documentos (tipo, descricao, escolhido) VALUES (cs_doc_file.tipo_documento, this.get_desc_tipo_doc(cs_doc_file.tipo_documento), 1)
ENDSCAN
SELECT cs_doc_file
SELECT cs_lista_documentos
GO TOP
IF EOF()
    lbret = .f.
ENDIF
RETURN lbret
ENDPROC
PROCEDURE get_desc_tipo_doc
LPARAMETERS _tipodoc
LOCAL lcret
lcret = ""
DO case
    CASE _tipodoc = "FT"
        lcret = "Fatura"
    CASE _tipodoc = "FS"
        lcret = "Fatura simplificada"
    CASE _tipodoc = "FR"
        lcret = "Fatura-recibo"
    CASE _tipodoc = "ND"
        lcret = "Nota de d
bito"
    CASE _tipodoc = "NC"
        lcret = "Nota de cr
dito"
ENDCASE
RETURN lcret
ENDPROC
PROCEDURE check_inclui_doc
LPARAMETERS _tipodoc
LOCAL lbret, lnind
lbret = .f.
lnind = 0
DO case
    CASE _tipodoc = "FT"
        lnind = 1
    CASE _tipodoc = "FS"
        lnind = 2
    CASE _tipodoc = "FR"
        lnind = 3
    CASE _tipodoc = "ND"
        lnind = 4
ENDCASE
IF BETWEEN(lnind, 1, 4)
    lbret = IIF(p_inclui_doc[lnind] = 1, .t., .f.)
ENDIF
RETURN lbret
ENDPROC
PROCEDURE load_series_documentos
LPARAMETERS _ano, _mes, _dimensao, _ed
LOCAL lnret, lnreccount, lcexpr, lcdocs, lnind
lnret = 0
lnreccount = 0
lcexpr = IIF(_ed = 1, "LEFT(nr_doc, _dimensao)", "RIGHT(nr_doc, _dimensao)")
lcdocs = "inlist(tipo_documento"
lnind = 0
DIMENSION latipodoc[5]
latipodoc[1] = "FT"
latipodoc[2] = "FS"
latipodoc[3] = "FR"
latipodoc[4] = "ND"
latipodoc[5] = "NC"
FOR lnind = 1 TO 5
    IF p_inclui_doc[lnind] = 1
        lcdocs = lcdocs + ",'" + latipodoc[lnind] + "'"
    ENDIF
ENDFOR
lcdocs = lcdocs + ")"
SELECT DISTINCT &lcexpr as serie ;
       FROM cs_saft_final ;
       WHERE YEAR(data_documento) = _ano AND ;
                MONTH(data_documento) = _mes AND ;
             &lcdocs ;
       ORDER BY tipo_documento ;
       INTO CURSOR cs_serie_file
lnreccount = RECCOUNT()
IF lnreccount > 10
    lnret = 9999
    lnret = lnreccount
    SELECT cs_serie_file
    SCAN
        INSERT INTO cs_serie_documentos (serie, escolhido, redoc) VALUES (cs_serie_file.serie, 0, 0)
    ENDSCAN
ENDIF
SELECT cs_serie_file
SELECT cs_serie_documentos
GO TOP
IF EOF()
    lnret = 0
ENDIF
RELEASE latipodoc
RETURN lnret
ENDPROC
PROCEDURE select_series
LPARAMETERS _dimensao, _ed
LOCAL lcret, lctrab, lnind
lctrab = ""
lnind = 1
lctrab = IIF(_ed = 1, "LEFT(nr_doc, " + ALLTRIM(STR(_dimensao)) + ")=", "RIGHT(nr_doc, " + ALLTRIM(STR(_dimensao)) + ")=")
lcret = ""
DO FORM importsaft_series WITH thisform.Top, thisform.left
SELECT cs_serie_documentos
SCAN FOR escolhido = 1
    lcret = lcret + IIF(EMPTY(lcret), "", " or ") + lctrab + "'" +  ALLTRIM(cs_serie_documentos.serie) + "'"
    IF BETWEEN(cs_serie_documentos.redoc, 1, 3)
        p_redoc[lnind,1] = cs_serie_documentos.serie
        p_redoc[lnind,2] = p_redoc_value[cs_serie_documentos.redoc]
        p_redoc_utilizado = .t.
    ENDIF
ENDSCAN
RETURN lcret
ENDPROC
PROCEDURE clean_arrays
p_inclui_doc[1] = 0 && FT
p_inclui_doc[2] = 0 && FS
p_inclui_doc[3] = 0 && FR
p_inclui_doc[4] = 0 && ND
p_inclui_doc[5] = 0 && NC
p_redoc[01,1] = ""
p_redoc[01,2] = ""
p_redoc[02,1] = ""
p_redoc[02,2] = ""
p_redoc[03,1] = ""
p_redoc[03,2] = ""
p_redoc[04,1] = ""
p_redoc[04,2] = ""
p_redoc[05,1] = ""
p_redoc[05,2] = ""
p_redoc[06,1] = ""
p_redoc[06,2] = ""
p_redoc[07,1] = ""
p_redoc[07,2] = ""
p_redoc[08,1] = ""
p_redoc[08,2] = ""
p_redoc[09,1] = ""
p_redoc[09,2] = ""
p_redoc[10,1] = ""
p_redoc[10,2] = ""
p_redoc_value[1] = "FT"
p_redoc_value[2] = "FS"
p_redoc_value[3] = "FR"
ENDPROC
PROCEDURE Destroy
SELECT cs_plano_nifs
ENDPROC
PROCEDURE Load
PUBLIC p_diario
p_diario = 0
=ARRAY_MESES_GERAL()
CREATE CURSOR cs_lista_documentos (tipo c(2), descricao c(20), escolhido n(1))
CREATE CURSOR cs_serie_documentos (serie c(12), escolhido n(1), redoc n(1))
ENDPROC
PROCEDURE Init
this.wpath = sys(2003)
this.Caption = this.Caption + "    v." + p_importsaft_versao + "  (build " + p_importsaft_build + ")"
thisform.cntsaft.lblnif_sft.Caption = ""
thisform.cntsaft.lblnif_cnt.Caption = ""
thisform.cntsaft.lbldocs_sft.Caption = "0"
thisform.cntsaft.lbldocs_cnt.Caption = "0"
thisform.cntsaft.lbltotaldeb_sft.Caption = "0.00"
thisform.cntsaft.lbltotaldeb_cnt.Caption = "0.00"
thisform.cntsaft.lbltotalcrd_sft.Caption = "0.00"
thisform.cntsaft.lbltotalcrd_cnt.Caption = "0.00"
thisform.cntsaft.lbltiposaft.Caption = ""
thisform.cntsaft.lbl1doc.Caption = ""
thisform.cntsaft.lbl9doc.Caption = ""
thisform.cntsaft.img_nif.Picture = ""
thisform.cntsaft.img_docs.Picture = ""
thisform.cntsaft.img_totaldeb.Picture = ""
thisform.cntsaft.img_totalcrd.Picture = ""
* Retira o espa
o entre p prefixo do pais e o NIF,
* nas primeiras instala
es. Para retirar no futuro
*!*    IF thisform.serial_first(p_evserial)
*!*        SELECT plano
*!*        replace ALL nif WITH UPPER(STUFF(nif, 3, 1, "")) FOR LEFT(conta, 2) = "21" AND SUBSTR(nif, 3, 1) = " "
*!*    ENDIF
SELECT UPPER(nif) as nif, conta as conta FROM plano WHERE LEFT(conta, 2) = "21" OR LEFT(conta, 2) = "26" ORDER BY conta INTO CURSOR cs_plano_nifs readwrite
replace ALL nif WITH STRTRAN(nif, " ", "")
INDEX ON nif TAG key_1
SELECT parm
set filter to LEFT(parm.chave,1)="\"
GO top
ENDPROC
PROCEDURE Release
SELECT parm
set filter to
DO clear_relations
RELEASE p_cancela, p_diarioimport, _filename, p_ultimodiames
ENDPROC
PROCEDURE Unload
=ARRAY_MESES_GERAL_X()
SELECT cs_serie_documentos
SELECT cs_lista_documentos
release p_diario
ENDPROC
PROCEDURE get_serie_1_doc
LPARAMETERS _doc, _dimensao, _ed
RETURN IIF(_ed = 1, LEFT(_doc, _dimensao), RIGHT(_doc, _dimensao))
ENDPROC
VALUE
THISFORM
CNTDIREITA
VISIBLE
CNTESQUERDA
InteractiveChange,
Text1.When,
Preencha todos os parametros da importa
o para poder prosseguir!
Lendo ficheiro SAFT...
cs_relatorio
LER_SAFT_VENDAS
o existem documentos p/ importar no periodo indicado
importsaft_tipos
o ser
o importados documentos.C
Provavelmente o filtro de s
ries est
 incorreto.
Resumido
Normal6
@R 999 999 999_
999 999_
999 999_
999 999 999.99_
999 999 999.99_
@R 999 999 999_
Importando documentos...
N/Fatura #
N/Fatura #
N/ Fat/Rec #
N/Deb #
(#RG) N/Crd #
SET FILTER TO YEAR(data_documento) = p_anoproc AND MONTH(data_documento) = lnmes AND &lcfiltroseries
o existem documentos p/ importar no periodo indicado
Saft_CC
Saft_FS
Saft_CN
Saft_CI
Saft_CO
Saft_CN
Saft_CI
Saft_CO
lccontafixa_
IF EMPTY(&lcconta_eval)
Saft_C
lcconta_cliente = IIF(thisform.check_conta(&lcconta_eval) = "M", &lcconta_eval, "")
Problema com a conta de cliente
Saft_1
cs_relatorio
Problema com o valor Iliquido do documento
cs_relatorio
ado valor do IVA
cs_relatorio
Documento com desconto financeiro
Saft_2
cs_relatorio
Problema com o valor Iliquido do documento
cs_relatorio
ado valor do IVA
cs_relatorio
Documento com desconto financeiro
cs_relatorio
999 999 999.99_
    (Incid.
999 999 999.99_
999 999 999.99_
    (Incid.
999 999 999.99_
cs_relatorio
cs_relatorio
cs_relatorio
Resumo:
cs_relatorio
cs_relatorio
cs_relatorio
Primeiro Doc.
cs_relatorio
ltimo Doc.
cs_relatorio
Nr. documentos
cs_relatorio
Descontos financeiros
999 999 999.99_
cs_relatorio
Total DEB
cs_relatorio
Total CRD
importsaft_relat
O NIF do ficheiro SAFT
 diferente do NIF da entidade.C
A importa
o foi efetuada.
OSAFT
P_DECISAO
P_INCLUI_DOC
P_REDOC
P_REDOC_VALUE
P_REDOC_UTILIZADO
LCVARIAVEL
LCVARIAVEL_CLIENTE
LCCONTA_CLIENTE
LNMES
LNDIARIO
LNDIA
LNLAST_DOC
LNPROX_DOC
LCFICHEIRO
LNULTIMO_DIA_MES
LCDESC
LCCHAVE_CONTA1
LCCHAVE_CONTA_MERCADO
LNNRDOCS_TRAB
LCDESC_FT
LCDESC_FS
LCDESC_FR
LCDESC_ND
LCDESC_NC
LNDIGITOS_FTDOC
LNDIGITOS_FSDOC
LNDIGITOS_FRDOC
LNDIGITOS_NDDOC
LNDIGITOS_NCDOC
LCMSG_DEB
LCMSG_CRD
LCCONTAFIXA_N
LCCONTAFIXA_I
LCCONTAFIXA_O
LCMERCADO
LCCONTA_EVAL
LCTIPO_DOC
LCTIPO_CONTA_N
LCTIPO_CONTA_I
LCTIPO_CONTA_O
LCCONTA_CONSUMIDORF
LCCONTA_FS
LN_USE_CONTA_FS
LNSERIES
LCFILTROSERIES
LNROW
LCSERIE_1_DOC
THISFORM
CLEAN_ARRAYS
TEXT1
VALUE
CNTSAFT
IMG_NIF
VISIBLE
IMG_DOCS
IMG_TOTALDEB
IMG_TOTALCRD
LBLTIPOSAFT
CAPTION
LBL1DOC
LBL9DOC
TXTTABN2
COMBO1
COMBO2
CS_LISTA_DOCUMENTOS
CS_SERIE_DOCUMENTOS
CS_RELATORIO
RLT_TIPO_ERRO
RLT_TIPO_DOC
RLT_NR_DOC
RLT_DESC
LISTINDEX
LASTDOC
VARIAVEIS_DECLAR
VARIAVEIS_CLEAN
SET_PARMS
OFICHEIRO
OLERNIF
OLERTAXTABLE
OLERTOTALSALES
OLERMASTERFILES
LER_SAFT
LOAD_LISTA_DOCUMENTOS
P_ANOPROC
IMPORTSAFT_TIPOS
LEFT
ESCOLHIDO
TIPO
TXTFILTRO
LOAD_SERIES_DOCUMENTOS
OPTFILTRO
SELECT_SERIES
ORESUMIDO
LBLNIF_SFT
LBLDOCS_SFT
ONRDOCS
LBLDOCS_SFT_ANULADOS
ONRDOCSANULADOS
LBLTOTALDEB_SFT
OTOTALNC
LBLTOTALCRD_SFT
OTOTALFT
LBLNIF_CNT
P_NIF
P_C_DEVELOP
LDOM
FORECOLOR
PICTURE
ICON_OK
SAFT_FTDESC
SAFT_FSDESC
SAFT_FRDESC
SAFT_NDDESC
SAFT_NCDESC
CS_SAFT_FINAL
TOTAL_DESCFIN
TOTAL_FT
TOTAL_NC
TIPO_CONTA_CLIENTE
OPTIONGROUP1
DATA_DOCUMENTO
LINHA_LANC
TOTAL_DOC
ERRO_DOCUMENTO
CHAVE_CONTA_MERCADO
TIPO_DOCUMENTO
CHECK_CONTA
MERCADO
CHECK_CLIENTE
MORADA
EMAIL
CLIENTE
CHECK_INCLUI_DOC
GET_SERIE_1_DOC
NR_DOC
ILIQ_ISE_PROD
CHAVE_CONTA
INSERE_FT
IVA_ISE_PROD
ALLOW_TOTAL
TOTAL_ILIQUIDO
TOTAL_IVA
ILIQ_RED_PROD
IVA_RED_PROD
ILIQ_INT_PROD
IVA_INT_PROD
ILIQ_NOR_PROD
IVA_NOR_PROD
ILIQ_OUT_PROD
IVA_OUT_PROD
ILIQ_ISE_SERV
IVA_ISE_SERV
ILIQ_RED_SERV
IVA_RED_SERV
ILIQ_INT_SERV
IVA_INT_SERV
ILIQ_NOR_SERV
IVA_NOR_SERV
ILIQ_OUT_SERV
IVA_OUT_SERV
ILIQ_ISE_OUTR
IVA_ISE_OUTR
ILIQ_RED_OUTR
IVA_RED_OUTR
ILIQ_INT_OUTR
IVA_INT_OUTR
ILIQ_NOR_OUTR
IVA_NOR_OUTR
ILIQ_OUT_OUTR
IVA_OUT_OUTR
INSERE_FT_CLIENTE
TOTAL_DOCUMENTO
DIFIVA
DESC_FIN
ACT_PAINEL
OTOTALDEB
OTOTALCRD
PA_GERAL_MES
LABEL1
IMPORTSAFT_RELAT
ICON_NOTOK
VARIAVEIS_RELEASE
Click,
DEFAULTv
Importa
o do Ficheiro SAFT de fatura
Ficheiro SAFT:(*.xml)|*.XML
LCFILE
LCOLD_DEFAULT
THISFORM
CXDIAL
FILENAME
DIALOGTITLE
FILTER
SHOWOPEN
PARENT
TEXT1
VALUE
WPATH
Click,
C:\Trab\SAFT\AUR\lactipedros.XML
P_C_DEVELOP
THISFORM
TEXT1
VALUE
COMBO2
COMBO1
TXTTABN2
c:\trab\serviclasse\saft.xml
P_C_DEVELOP
THISFORM
TEXT1
VALUE
COMBO2
COMBO1
TXTTABN2
RightClick,
Click
P_VANCELA
P_DIARIO
THISFORM
RELEASE
Click,
BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
FontSize = 8
WordWrap = .T.
Caption = "Quantidade de caracteres que definem a s
Height = 19
Left = 36
Top = 228
Width = 226
TabIndex = 12
Name = "Label9"
IMPORTSAFT2
Label9
label
label
AutoSize = .T.
FontBold = .T.
FontItalic = .T.
FontSize = 8
Caption = " Resumo "
Height = 15
Left = 24
Top = 268
Width = 51
TabIndex = 17
Name = "Label8"
IMPORTSAFT2
Label8
label
label
AutoSize = .T.
FontBold = .T.
FontItalic = .T.
FontSize = 8
Caption = " Dados p/ lan
amento "
Height = 15
Left = 24
Top = 78
Width = 123
TabIndex = 17
Name = "Label7"
IMPORTSAFT2
Label7
label
label
AutoSize = .T.
FontSize = 8
Caption = ")"
Height = 16
Left = 69
Top = 8
Width = 6
TabIndex = 7
ForeColor = 128,128,128
Name = "Label10"
IMPORTSAFT2.cntDireita
Label10
label
label
AutoSize = .T.
FontBold = .T.
FontItalic = .T.
FontSize = 8
Caption = "/A"
Height = 15
Left = 56
Top = 8
Width = 13
TabIndex = 7
Name = "Label9"
IMPORTSAFT2.cntDireita
Label9
label
label
AutoSize = .T.
FontSize = 8
Caption = "(Ex: 1234"
Height = 16
Left = 8
Top = 8
Width = 48
TabIndex = 7
ForeColor = 128,128,128
Name = "Label8"
IMPORTSAFT2.cntDireita
Label8
label
label
tTop = 223
Left = 370
Width = 76
Height = 36
BorderWidth = 0
Visible = .F.
TabIndex = 15
Name = "cntDireita"
IMPORTSAFT2
cntDireita
    container
    container
AutoSize = .T.
FontSize = 8
Caption = "1234)"
Height = 16
Left = 48
Top = 8
Width = 30
TabIndex = 7
ForeColor = 128,128,128
Name = "Label13"
IMPORTSAFT2.cntEsquerda
Label13
label
label
AutoSize = .T.
FontBold = .T.
FontItalic = .T.
FontSize = 8
Caption = "S1/"
Height = 15
Left = 31
Top = 8
Width = 18
TabIndex = 7
Name = "Label11"
IMPORTSAFT2.cntEsquerda
Label11
label
label
AutoSize = .T.
FontSize = 8
Caption = "(Ex:"
Height = 16
Left = 8
Top = 8
Width = 21
TabIndex = 7
ForeColor = 128,128,128
Name = "Label7"
IMPORTSAFT2.cntEsquerda
Label7
label
label
fTop = 223
Left = 370
Width = 86
Height = 31
BorderWidth = 0
TabIndex = 14
Name = "cntEsquerda"
IMPORTSAFT2
cntEsquerda
    container
    container
PROCEDURE InteractiveChange
IF this.Value = 1
    thisform.cntDireita.Visible = .f.
    thisform.cntEsquerda.Visible = .t.
    thisform.cntEsquerda.Visible = .f.
    thisform.cntDireita.Visible = .t.
ENDIF
ENDPROC
ButtonCount = 2
BorderStyle = 0
Value = 1
Height = 41
Left = 303
SpecialEffect = 1
Top = 217
Width = 73
TabIndex = 13
Name = "optfiltro"
Option1.FontSize = 8
Option1.Caption = "Esquerda"
Option1.Value = 1
Option1.Height = 16
Option1.Left = 5
Option1.Top = 5
Option1.Width = 64
Option1.AutoSize = .T.
Option1.Name = "Option1"
Option2.FontSize = 8
Option2.Caption = "Direita"
Option2.Height = 16
Option2.Left = 5
Option2.Top = 20
Option2.Width = 48
Option2.AutoSize = .T.
Option2.Name = "Option2"
IMPORTSAFT2
    optfiltro
optiongroup
optiongroup
FontSize = 8
Alignment = 3
Value = 0
Format = "R"
Height = 21
InputMask = "99"
Left = 265
MaxLength = 2
TabIndex = 16
Top = 226
Width = 27
Name = "txtfiltro"
IMPORTSAFT2
    txtfiltro
textbox
textbox
AutoSize = .T.
FontBold = .T.
FontItalic = .T.
FontSize = 8
Caption = " Filtrar docs. de vendas por s
ries "
Height = 15
Left = 24
Top = 203
Width = 188
TabIndex = 17
Name = "Label6"
IMPORTSAFT2
Label6
label
label
STop = 275
Left = 14
Height = 2
Width = 443
SpecialEffect = 0
Name = "Shape3"
IMPORTSAFT2
Shape3
shape
shape
STop = 210
Left = 14
Height = 2
Width = 443
SpecialEffect = 0
Name = "Shape2"
IMPORTSAFT2
Shape2
shape
shape
RTop = 87
Left = 135
Height = 30
Width = 2
SpecialEffect = 0
Name = "Shape9"
IMPORTSAFT2.cntsaft
Shape9
shape
shape
AutoSize = .T.
FontSize = 8
Caption = "* Documentos anulados"
Height = 16
Left = 2
Top = 182
Width = 116
ForeColor = 255,0,0
Name = "Label4"
IMPORTSAFT2.cntsaft
Label4
label
label
FontSize = 8
Alignment = 1
Caption = "*()"
Height = 17
Left = 95
Top = 94
Width = 35
ForeColor = 255,0,0
Name = "lbldocs_sft_anulados"
IMPORTSAFT2.cntsaft
lbldocs_sft_anulados
label
label
FontBold = .T.
FontItalic = .T.
FontSize = 8
Caption = "9"
Height = 17
Left = 264
Top = 38
Width = 71
Name = "lbl9doc"
IMPORTSAFT2.cntsaft
lbl9doc
label
label
FontBold = .T.
FontItalic = .T.
FontSize = 8
Caption = "1"
Height = 17
Left = 264
Top = 23
Width = 71
Name = "lbl1doc"
IMPORTSAFT2.cntsaft
lbl1doc
label
label
vAutoSize = .T.
FontSize = 8
Caption = "Ult. Doc."
Height = 16
Left = 218
Top = 38
Width = 42
Name = "Label12"
IMPORTSAFT2.cntsaft
Label12
label
label
tAutoSize = .T.
FontSize = 8
Caption = "1
 Doc."
Height = 16
Left = 217
Top = 23
Width = 38
Name = "Label13"
IMPORTSAFT2.cntsaft
Label13
label
label
FontBold = .T.
FontItalic = .T.
FontSize = 9
Alignment = 2
Caption = "Normal"
Height = 17
Left = 110
Top = 30
Width = 80
Name = "lbltiposaft"
IMPORTSAFT2.cntsaft
lbltiposaft
label
label
QTop = 55
Left = 2
Height = 2
Width = 348
SpecialEffect = 0
Name = "Shape8"
IMPORTSAFT2.cntsaft
Shape8
shape
shape
wAutoSize = .T.
FontSize = 8
Caption = "Tipo de SAFT"
Height = 16
Left = 14
Top = 30
Width = 67
Name = "Label3"
IMPORTSAFT2.cntsaft
Label3
label
label
Picture = ..\shared\icons\notok.gif
Stretch = 2
BackStyle = 0
Height = 23
Left = 312
Top = 151
Visible = .F.
Width = 33
Name = "img_totalcrd"
IMPORTSAFT2.cntsaft
img_totalcrd
image
image
Picture = ..\shared\icons\notok.gif
Stretch = 2
BackStyle = 0
Height = 23
Left = 312
Top = 120
Visible = .F.
Width = 33
Name = "img_totaldeb"
IMPORTSAFT2.cntsaft
img_totaldeb
image
image
IMPORTSAFT2.cntsaft
img_docs
image
image
IMPORTSAFT2.cntsaft
img_nif
image
image
shape
cliente_naci
cliente_intra
cliente_outros
cliente_final
icon_alerta
icon_ok
icon_notok
linha_lanc
total_doc
erro_documento
total_ft
total_nc
wpath
total_descfin
*chave_conta
*insere_ft
*lastdoc
*variaveis_declar
*variaveis_clean
*variaveis_release
*insere_linha
*get_conta_iva
*get_conta_cliente
*insere_ft_cliente
*chave_conta_mercado
*check_conta
*create_conta
*get_conta_disponivel
*check_cliente
*mercado
*extrair_billingaddress
*act_painel
*tipo_conta_cliente
*clean_nrcliente
*serial_first
*load_lista_documentos
*get_desc_tipo_doc
*check_inclui_doc
*load_series_documentos
*select_series
*clean_arrays
*get_serie_1_doc
shape
shape
Shape1
IMPORTSAFT2
TTop = 85
Left = 14
Height = 421
Width = 445
SpecialEffect = 0
Name = "Shape1"
commandbutton
commandbutton
Command1
IMPORTSAFT2
Top = 514
Left = 379
Height = 25
Width = 80
FontSize = 8
Cancel = .T.
Caption = "\<Sair"
TabIndex = 20
Name = "Command1"
MPROCEDURE Click
RELEASE p_vancela, p_diario
thisform.Release
ENDPROC
Picture = ..\shared\icons\notok.gif
Stretch = 2
BackStyle = 0
Height = 23
Left = 312
Top = 90
Visible = .F.
Width = 33
Name = "img_docs"
IMPORTSAFT2.cntsaft
Shape7
shape
IMPORTSAFT2.cntsaft
label
label
Label1
IMPORTSAFT2
AutoSize = .T.
FontSize = 8
Caption = "Ficheiro SAFT"
Height = 16
Left = 14
Top = 15
Width = 70
TabIndex = 3
Name = "Label1"
PROCEDURE RightClick
IF p_c_develop
    thisform.text1.Value = "C:\Trab\SAFT\AUR\lactipedros.XML"
    thisform.combo2.Value = "\001"
    thisform.combo1.Value = 08
    thisform.txttabn2.text1.Value = 1
ENDIF
ENDPROC
PROCEDURE Click
IF p_c_develop
    thisform.text1.Value = "c:\trab\serviclasse\saft.xml"
    thisform.combo2.Value = "\001"
    thisform.combo1.Value = 10
    thisform.txttabn2.text1.Value = 1
ENDIF
ENDPROC
Picture = ..\shared\icons\notok.gif
Stretch = 2
BackStyle = 0
Height = 23
Left = 312
Top = 59
Visible = .F.
Width = 33
Name = "img_nif"
STop = 55
Left = 308
Height = 123
Width = 2
SpecialEffect = 0
Name = "Shape7"
AutoSize = .T.
FontItalic = .T.
FontSize = 8
Caption = "Contabilidade"
Height = 16
Left = 244
Top = 3
Width = 71
Name = "Label2"
Label2
label
label
AutoSize = .T.
FontItalic = .T.
FontSize = 8
Caption = "Fich. SAFT"
Height = 16
Left = 124
Top = 3
Width = 58
Name = "Label1"
IMPORTSAFT2.cntsaft
Label1
label
commandbutton
commandbutton
Command2
IMPORTSAFT2
oTop = 12
Left = 436
Height = 22
Width = 22
FontSize = 8
Caption = "..."
TabIndex = 2
Name = "Command2"
7PROCEDURE Click
local lcfile, lcold_default
lcold_default = set("DEFAULT")
lcfile = ""
*_curdir=SET('DEFAULT') + SYS(2003)
*_filename=""
ThisForm.cxdial.filename = ""
Thisform.cxdial.DialogTitle = "Importa
o do Ficheiro SAFT de fatura
Thisform.cxdial.filter="Ficheiro SAFT:(*.xml)|*.XML"
ThisForm.cxdial.showopen
lcfile = ThisForm.cxdial.filename
This.Parent.Text1.value = lcfile
set default to (lcold_default)
cd (thisform.wpath)
*_filename=ThisForm.cxdial.filename
*!*    IF ! P_CANCELA
*!*        cd &_curdir
*!*        thisform.refresh
*!*    else
*!*        p_cancela=.f.
*!*        cd &_curdir
*!*        thisform.refresh
*!*        return
*!*    ENDIF
*!*    return
*-------------------------------------
*!*    ThisForm.oDialog.filterindex = 1
*!*    ThisForm.oDialog.flags = 4096 + 4 + 1048576 + 2048
ENDPROC
label
FontBold = .T.
Alignment = 1
Caption = "lbltotalcrd_cnt"
Height = 17
Left = 213
Top = 154
Width = 90
ForeColor = 255,0,0
Name = "lbltotalcrd_cnt"
IMPORTSAFT2.cntsaft
lbltotalcrd_cnt
label
label
FontBold = .T.
Alignment = 1
Caption = "lbltotaldeb_cnt"
Height = 17
Left = 213
Top = 123
Width = 90
ForeColor = 255,0,0
Name = "lbltotaldeb_cnt"
IMPORTSAFT2.cntsaft
lbltotaldeb_cnt
label
label
IMPORTSAFT2.cntsaft
lbldocs_cnt
label
label
label
olecontrol
olecontrol
cxdial
IMPORTSAFT2
BTop = 38
Left = 378
Height = 100
Width = 100
Name = "cxdial"
28C4C820-401A-101B-A3C9-08002B2F49FB
CancelError
.OLEObject = C:\Windows\system32\COMDLG32.OCX
textbox
textbox
Text1
IMPORTSAFT2
FontSize = 8
Height = 22
Left = 123
TabIndex = 1
TabStop = .T.
Top = 12
Width = 310
BackColor = 255,255,255
Name = "Text1"
label
label
Label2
IMPORTSAFT2
AutoSize = .T.
FontSize = 8
Caption = "M
s de integra
Height = 16
Left = 58
Top = 130
Width = 91
TabIndex = 10
Name = "Label2"
label
label
Label3
IMPORTSAFT2
AutoSize = .T.
FontSize = 8
Caption = "Diario de movimentos"
Height = 16
Left = 58
Top = 103
Width = 104
TabIndex = 8
Name = "Label3"
optiongroup
optiongroup
Optiongroup1
IMPORTSAFT2
ButtonCount = 2
BorderStyle = 0
Value = 1
Height = 24
Left = 168
Top = 155
Width = 228
TabIndex = 11
Name = "Optiongroup1"
Option1.FontSize = 8
Option1.Caption = "Ultimo dia do m
Option1.Value = 1
Option1.Height = 16
Option1.Left = 5
Option1.Top = 5
Option1.Width = 101
Option1.AutoSize = .T.
Option1.Name = "Option1"
Option2.FontSize = 8
Option2.Caption = "Dia do documento"
Option2.Height = 16
Option2.Left = 120
Option2.Top = 5
Option2.Width = 104
Option2.AutoSize = .T.
Option2.Name = "Option2"
label
label
Label4
IMPORTSAFT2
AutoSize = .T.
FontSize = 8
Caption = "Dia do movimento"
Height = 16
Left = 58
Top = 160
Width = 86
TabIndex = 12
Name = "Label4"
commandbutton
commandbutton
Command3
IMPORTSAFT2
Comment = ""
Top = 514
Left = 295
Height = 25
Width = 80
FontSize = 8
Caption = "Importar"
TabIndex = 19
Name = "Command3"
PROCEDURE Click
PUBLIC oSaft, p_decisao, p_inclui_doc[5], p_redoc[10,2], p_redoc_value[3], p_redoc_utilizado
LOCAL lcvariavel, lcvariavel_cliente, lcconta_cliente, lnmes, lndiario, lndia, lnlast_doc, lnprox_doc, lcficheiro, lnultimo_dia_mes, ;
      lcdesc, lcchave_conta1, lcchave_conta_mercado, lnnrdocs_trab, lcdesc_ft, lcdesc_fs, lcdesc_fr, lcdesc_nd, lcdesc_nc, ;
      lndigitos_ftdoc, lndigitos_fsdoc, lndigitos_frdoc, lndigitos_nddoc, lndigitos_ncdoc, lcmsg_deb, lcmsg_crd, lccontafixa_n, lccontafixa_i, ;
      lccontafixa_o, lcmercado, lcconta_eval, lctipo_doc, lctipo_conta_n, lctipo_conta_i, lctipo_conta_o, lcconta_consumidorf, lcconta_fs, ;
      ln_use_conta_fs, lnseries, lcfiltroseries, lnrow, lcserie_1_doc
=thisform.clean_arrays()
p_decisao = .t.
p_redoc_utilizado = .f.
lcvariavel = ""
lcvariavel_cliente = ""
lcconta_cliente = ""
lnmes = 0
lndiario = 0
lndia = 0
lnlast_doc = 0
lnprox_doc = 0
lcficheiro = ALLTRIM(thisform.text1.Value)
lnultimo_dia_mes = 0
lcdesc = ""
lcchave_conta1 = ""
lcchave_conta_mercado = ""
lnnrdocs_trab = 0
lcdesc_ft = ""
lcdesc_fs = ""
lcdesc_fr = ""
lcdesc_nd = ""
lcdesc_nc = ""
lndigitos_ftdoc = 0
lndigitos_fsdoc = 0
lndigitos_frdoc = 0
lndigitos_nddoc = 0
lndigitos_ncdoc = 0
lcmsg_deb = ""
lcmsg_crd = ""
lccontafixa_n = ""
lccontafixa_i = ""
lccontafixa_o = ""
lcmercado = ""
lcconta_eval = ""
lctipo_doc = ""
lctipo_conta_n = ""
lctipo_conta_i = ""
lctipo_conta_o = ""
lcconta_consumidorf = ""
ln_use_conta_fs = 0
lcconta_fs = ""
lnseries = 0
lcfiltroseries = ".t."
lnrow = 0
lcserie_1_doc = ""
thisform.cntsaft.img_nif.Visible = .f.
thisform.cntsaft.img_docs.Visible = .f.
thisform.cntsaft.img_totaldeb.Visible = .f.
thisform.cntsaft.img_totalcrd.Visible = .f.
thisform.cntsaft.lbltiposaft.Caption = ""
thisform.cntsaft.lbl1doc.Caption = ""
thisform.cntsaft.lbl9doc.Caption = ""
IF !FILE(lcficheiro) OR EMPTY(ThisForm.Txttabn2.Text1.Value) OR EMPTY(ThisForm.Combo1.Value) OR EMPTY(ThisForm.Combo2.Value)
    =MESSAGEBOX("Preencha todos os parametros da importa
o para poder prosseguir!", 0+64, "Aten
o...")
    WAIT WINDOW "Lendo ficheiro SAFT..." nowait
    SELECT cs_lista_documentos
    SELECT cs_serie_documentos
    CREATE CURSOR cs_relatorio (rlt_tipo_erro n(1), rlt_tipo_doc c(2), rlt_nr_doc c(40), rlt_desc c(60))
    lnmes = thisform.combo1.ListIndex
    lndiario = thisform.txttabn2.text1.Value
    lnlast_doc = thisform.lastdoc(lnmes, lndiario)
    lnprox_doc = lnlast_doc + 1
    =thisform.variaveis_declar()
    =thisform.variaveis_clean()
    =set_parms(ALLTRIM(thisform.combo2.Value))
    oSaft = CREATEOBJECT("LER_SAFT_VENDAS")
    oSaft.oFicheiro = lcficheiro
    oSaft.oLerNif = .t.
    oSaft.oLerTaxtable = .f.
    oSaft.oLerTotalsales = .t.
    oSaft.oLerMasterfiles = .t.
    oSaft.ler_saft
    IF !thisform.load_lista_documentos(p_anoproc, lnmes)
        =MESSAGEBOX("N
o existem documentos p/ importar no periodo indicado", 0+64, "Aten
o...")
    ELSE
        DO FORM importsaft_tipos WITH thisform.Top, thisform.left
        IF p_decisao
            SELECT cs_lista_documentos
            SCAN FOR escolhido = 1
                DO case
                    CASE tipo = "FT"
                        p_inclui_doc[1] = 1
                    CASE tipo = "FS"
                        p_inclui_doc[2] = 1
                    CASE tipo = "FR"
                        p_inclui_doc[3] = 1
                    CASE tipo = "ND"
                        p_inclui_doc[4] = 1
                    CASE tipo = "NC"
                        p_inclui_doc[5] = 1
                ENDCASE
            ENDSCAN
            * Definir o filtro das series a incluir
            IF thisform.txtfiltro.Value > 0
                lnseries = thisform.load_series_documentos(p_anoproc, lnmes, thisform.txtfiltro.Value, thisform.optfiltro.Value)
                * trabalhar o lcfiltroseries
                IF lnseries = 9999
                    lcfiltroseries = ".f."
                    =MESSAGEBOX("N
o ser
o importados documentos." + CHR(13) + CHR(13) + "Provavelmente o filtro de s
ries est
 incorreto.", 0+48, "Aten
o...")
                ELSE
                    IF lnseries > 0
                        lcfiltroseries = thisform.select_series(thisform.txtfiltro.Value, thisform.optfiltro.Value)
                    ELSE
                        lcfiltroseries = ".f."
                    ENDIF
                ENDIF
            ENDIF
            IF p_decisao
                thisform.cntsaft.lbltiposaft.Caption = IIF(oSaft.oResumido, "Resumido", "Normal")
                thisform.cntsaft.lblnif_sft.Caption = TRANSFORM(oSaft.oNif, "@R 999 999 999")
                thisform.cntsaft.lbldocs_sft.Caption = TRANSFORM(oSaft.oNrDocs, "999 999")
                thisform.cntsaft.lbldocs_sft_anulados.Caption = "*(" + ALLTRIM(TRANSFORM(oSaft.oNrDocsAnulados, "999 999")) + ")"
            *!*        thisform.cntsaft.lbltotaldeb_sft.Caption = TRANSFORM(oSaft.oTotalDeb, "999 999 999.99")
            *!*        thisform.cntsaft.lbltotalcrd_sft.Caption = TRANSFORM(oSaft.oTotalCrd, "999 999 999.99")
                thisform.cntsaft.lbltotaldeb_sft.Caption = TRANSFORM(oSaft.oTotalNC, "999 999 999.99")
                thisform.cntsaft.lbltotalcrd_sft.Caption = TRANSFORM(oSaft.oTotalFT, "999 999 999.99")
                thisform.cntsaft.lblnif_cnt.Caption = TRANSFORM(p_nif, "@R 999 999 999")
                thisform.cntsaft.img_nif.Visible = .t.
                IF oSaft.oNif = p_nif OR p_c_develop
                    WAIT WINDOW "Importando documentos..." nowait
                    lnultimo_dia_mes = DAY(ldom(CTOD("^" + ALLTRIM(STR(p_anoproc)) + "/" + ALLTRIM(STR(lnmes)) + "/15")))
                    thisform.cntsaft.lblnif_sft.ForeColor = RGB(0,128,0)
                    thisform.cntsaft.lblnif_cnt.ForeColor = RGB(0,128,0)
                    thisform.cntsaft.img_nif.Picture = thisform.icon_ok
                    * Desc. Fatura
                    IF EMPTY(Saft_ftdesc)
                        lcdesc_ft = "N/Fatura #"
                        lndigitos_ftdoc = 9999
                    ELSE
                        lcdesc_ft = ALLTRIM(STRTRAN(Saft_ftdesc, "?", ""))
                        lndigitos_ftdoc = OCCURS("?", Saft_ftdesc)
                    ENDIF
                    * Desc. Fatura Simplificada
                    IF EMPTY(Saft_fsdesc)
                        lcdesc_fs = "N/Fatura #"
                        lndigitos_fsdoc = 9999
                    ELSE
                        lcdesc_fs = ALLTRIM(STRTRAN(Saft_fsdesc, "?", ""))
                        lndigitos_fsdoc = OCCURS("?", Saft_fsdesc)
                    ENDIF
                    * Desc. Fatura Recibo
                    IF EMPTY(Saft_frdesc)
                        lcdesc_fr = "N/ Fat/Rec #"
                        lndigitos_frdoc = 9999
                    ELSE
                        lcdesc_fr = ALLTRIM(STRTRAN(Saft_frdesc, "?", ""))
                        lndigitos_frdoc = OCCURS("?", Saft_frdesc)
                    ENDIF
                    * Desc. Nota Debito
                    IF EMPTY(Saft_nddesc)
                        lcdesc_nd = "N/Deb #"
                        lndigitos_nddoc = 9999
                    ELSE
                        lcdesc_nd = ALLTRIM(STRTRAN(Saft_nddesc, "?", ""))
                        lndigitos_nddoc = OCCURS("?", Saft_nddesc)
                    ENDIF
                    * Desc. Nota Credito
                    IF EMPTY(Saft_ncdesc)
                        lcdesc_nc = "(#RG) N/Crd #"
                        lndigitos_ncdoc = 9999
                    ELSE
                        lcdesc_nc = ALLTRIM(STRTRAN(Saft_ncdesc, "?", ""))
                        lndigitos_ncdoc = OCCURS("?", Saft_ncdesc)
                    ENDIF
                    SELECT cs_saft_final
                    SET FILTER TO YEAR(data_documento) = p_anoproc AND MONTH(data_documento) = lnmes AND &lcfiltroseries
                    GO top
                    IF eof()
                        =MESSAGEBOX("N
o existem documentos p/ importar no periodo indicado", 0+64, "Aten
o...")
                    ELSE
                        thisform.total_descfin = 0.00
                        thisform.total_ft = 0.00
                        thisform.total_nc = 0.00
                        lcconta_consumidorf = EVALUATE("Saft_CC")
                        lcconta_fs = EVALUATE("Saft_FS")
                        lctipo_conta_n = thisform.tipo_conta_cliente(EVALUATE("Saft_CN"))
                        lctipo_conta_i = thisform.tipo_conta_cliente(EVALUATE("Saft_CI"))
                        lctipo_conta_o = thisform.tipo_conta_cliente(EVALUATE("Saft_CO"))

                        IF lctipo_conta_n = "F"
                            lccontafixa_n = EVALUATE("Saft_CN")
                        ENDIF
                        IF lctipo_conta_i = "F"
                            lccontafixa_i = EVALUATE("Saft_CI")
                        ENDIF
                        IF lctipo_conta_o = "F"
                            lccontafixa_o = EVALUATE("Saft_CO")
                        ENDIF

*            return
                        SCAN
                            lndia = IIF(thisform.optiongroup1.Value = 1, lnultimo_dia_mes, DAY(data_documento))
                            thisform.linha_lanc = 1
                            thisform.total_doc = 0.00
                            thisform.erro_documento = ""
                            lcchave_conta_mercado = thisform.chave_conta_mercado(nif)
                            lctipo_doc = cs_saft_final.tipo_documento

                            * Check Cliente - Faz um check
 conta de cliente e/ou tenta cria-la, mas n
o grava a linha de movimento.
                            * Falo-
 mais tarde, depois das contas de vendas. Se houver problema, n
o insere documento.

                            IF ln_use_conta_fs = 1 && Usa conta unica p/ FS e FR
                                lcconta_cliente = lcconta_fs
                            ELSE
                                IF EMPTY(nif)
                                    IF lctipo_conta_n = "F"
                                        lcconta_cliente = lccontafixa_n && Utiliza a conta fixa conf. em clientes nacionais
                                    ELSE
                                        IF EMPTY(lcconta_consumidorf)
                                            lcconta_cliente = "" && N
o existe consumidor final definido
                                        ELSE
                                            lcconta_cliente = lcconta_consumidorf && Utiliza a conta conf. em consumidor final
                                        ENDIF
                                    ENDIF
                                    IF thisform.check_conta(lcconta_cliente) # "M"
                                        lcconta_cliente = ""
                                    ENDIF
                                ELSE
                                    lcmercado = thisform.mercado(nif)
                                    lcconta_eval = "lccontafixa_" + lcmercado
                                    IF EMPTY(&lcconta_eval)
                                        lcvariavel_cliente = "Saft_C" + lcmercado
                                        lcconta_cliente = thisform.check_cliente(lcvariavel_cliente, nif, nome, morada, val(lcchave_conta_mercado), tel, fax, email, cliente)
                                    ELSE
                                        lcconta_cliente = IIF(thisform.check_conta(&lcconta_eval) = "M", &lcconta_eval, "")
                                    ENDIF
                                ENDIF
                            ENDIF
                            IF EMPTY(lcconta_cliente)
                                thisform.erro_documento = "Problema com a conta de cliente"
                            ELSE
        *                        IF INLIST(lctipo_doc, "FT", "FS", "FR", "ND") AND thisform.chk_faturas.Value = 1
                                IF thisform.check_inclui_doc(lctipo_doc)
                                    * Verifica se faz reclassifica
o do tipo de documento
                                    IF BETWEEN(lnseries, 1, 10) AND p_redoc_utilizado
                                        IF LEFT(lctipo_doc, 1) = "F"
                                            lcserie_1_doc = thisform.get_serie_1_doc(cs_saft_final.nr_doc, thisform.txtfiltro.Value, thisform.optfiltro.Value)
                                            lnrow = ASCAN(p_redoc, lcserie_1_doc, 1, 10, 1, 14)
                                            IF lnrow > 0
                                                lctipo_doc = p_redoc[lnrow, 2]
                                            ENDIF
                                        ENDIF
                                    ENDIF
                                    DO case
                                        CASE lctipo_doc = "FT"
                                            lcdesc = lcdesc_ft + IIF(lndigitos_ftdoc=9999, ALLTRIM(cs_saft_final.nr_doc), IIF(lndigitos_ftdoc=0, "", RIGHT(ALLTRIM(cs_saft_final.nr_doc), lndigitos_ftdoc)))
                                        CASE lctipo_doc = "FS"
                                            lcdesc = lcdesc_fs + IIF(lndigitos_fsdoc=9999, ALLTRIM(cs_saft_final.nr_doc), IIF(lndigitos_fsdoc=0, "", RIGHT(ALLTRIM(cs_saft_final.nr_doc), lndigitos_fsdoc)))
                                        CASE lctipo_doc = "FR"
                                            lcdesc = lcdesc_fr + IIF(lndigitos_frdoc=9999, ALLTRIM(cs_saft_final.nr_doc), IIF(lndigitos_frdoc=0, "", RIGHT(ALLTRIM(cs_saft_final.nr_doc), lndigitos_frdoc)))
                                        CASE lctipo_doc = "ND"
                                            lcdesc = lcdesc_nd + IIF(lndigitos_nddoc=9999, ALLTRIM(cs_saft_final.nr_doc), IIF(lndigitos_nddoc=0, "", RIGHT(ALLTRIM(cs_saft_final.nr_doc), lndigitos_nddoc)))
                                    ENDCASE
                                    lcchave_conta1 = "Saft_1" + lcchave_conta_mercado

                                    * Produtos
                                    IF cs_saft_final.iliq_ise_prod # 0 && Isento
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "S")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_ise_prod, cs_saft_final.iva_ise_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_red_prod # 0 && Reduzida
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "R")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_red_prod, cs_saft_final.iva_red_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_int_prod # 0 && Intermedia
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "I")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_int_prod, cs_saft_final.iva_int_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_nor_prod # 0 && Normal
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "N")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_nor_prod, cs_saft_final.iva_nor_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_out_prod # 0 && Outro regime
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "O")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_out_prod, cs_saft_final.iva_out_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF

                                    * Servi
                                    IF cs_saft_final.iliq_ise_serv # 0 && Isento
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "S")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_ise_serv, cs_saft_final.iva_ise_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_red_serv # 0 && Reduzida
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "R")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_red_serv, cs_saft_final.iva_red_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_int_serv # 0 && Intermedia
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "I")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_int_serv, cs_saft_final.iva_int_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_nor_serv # 0 && Normal
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "N")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_nor_serv, cs_saft_final.iva_nor_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_out_serv # 0 && Outro regime
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "O")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_out_serv, cs_saft_final.iva_out_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    * Outros
                                    IF cs_saft_final.iliq_ise_outr # 0 && Isento
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "S")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_ise_outr, cs_saft_final.iva_ise_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_red_outr # 0 && Reduzida
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "R")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_red_outr, cs_saft_final.iva_red_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_int_outr # 0 && Intermedia
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "I")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_int_outr, cs_saft_final.iva_int_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_nor_outr # 0 && Normal
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "N")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_nor_outr, cs_saft_final.iva_nor_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF
                                    IF cs_saft_final.iliq_out_outr # 0 && Outro regime
                                        lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "O")
                                        thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_out_outr, cs_saft_final.iva_out_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                    ENDIF

                                    * Cliente
                                    thisform.insere_ft_cliente(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcconta_cliente, cs_saft_final.nif, thisform.total_doc, lctipo_doc)
                                    IF thisform.total_doc # cs_saft_final.total_documento
                                        INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (9, lctipo_doc, ALLTRIM(cs_saft_final.nr_doc), "Problema com o valor Iliquido do documento")
                                    ELSE
                                        IF ABS(cs_saft_final.difiva) > 0.01
                                            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (1, lctipo_doc, ALLTRIM(cs_saft_final.nr_doc), "For
ado valor do IVA")
                                        ENDIF
                                        IF cs_saft_final.desc_fin # 0
                                            thisform.total_descfin = thisform.total_descfin + cs_saft_final.desc_fin
                                            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (1, lctipo_doc, ALLTRIM(cs_saft_final.nr_doc), "Documento com desconto financeiro")
                                        ENDIF
                                    ENDIF

                                    IF EMPTY(thisform.erro_documento)
                                        lnprox_doc = lnprox_doc + 1
                                    ENDIF
                                ELSE

                                    IF lctipo_doc = "NC" AND p_inclui_doc[5] = 1
                                        lcdesc = lcdesc_nc + IIF(lndigitos_ncdoc=9999, ALLTRIM(cs_saft_final.nr_doc), IIF(lndigitos_ncdoc=0, "", RIGHT(ALLTRIM(cs_saft_final.nr_doc), lndigitos_ncdoc)))
                                        lcchave_conta1 = "Saft_2" + lcchave_conta_mercado

                                        * Produtos
                                        IF cs_saft_final.iliq_ise_prod # 0 && Isento
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "S")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_ise_prod, cs_saft_final.iva_ise_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_red_prod # 0 && Reduzida
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "R")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_red_prod, cs_saft_final.iva_red_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_int_prod # 0 && Intermedia
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "I")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_int_prod, cs_saft_final.iva_int_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_nor_prod # 0 && Normal
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "N")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_nor_prod, cs_saft_final.iva_nor_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_out_prod # 0 && Outro regime
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("P", "O")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_out_prod, cs_saft_final.iva_out_prod, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF

                                        * Servi
                                        IF cs_saft_final.iliq_ise_serv # 0 && Isento
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "S")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_ise_serv, cs_saft_final.iva_ise_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_red_serv # 0 && Reduzida
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "R")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_red_serv, cs_saft_final.iva_red_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_int_serv # 0 && Intermedia
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "I")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_int_serv, cs_saft_final.iva_int_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_nor_serv # 0 && Normal
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "N")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_nor_serv, cs_saft_final.iva_nor_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_out_serv # 0 && Outro regime
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("S", "O")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_out_serv, cs_saft_final.iva_out_serv, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        * Outros
                                        IF cs_saft_final.iliq_ise_outr # 0 && Isento
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "S")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_ise_outr, cs_saft_final.iva_ise_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_red_outr # 0 && Reduzida
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "R")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_red_outr, cs_saft_final.iva_red_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_int_outr # 0 && Intermedia
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "I")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_int_outr, cs_saft_final.iva_int_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_nor_outr # 0 && Normal
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "N")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_nor_outr, cs_saft_final.iva_nor_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        IF cs_saft_final.iliq_out_outr # 0 && Outro regime
                                            lcvariavel = lcchave_conta1 + thisform.chave_conta("O", "O")
                                            thisform.insere_ft(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcvariavel, cs_saft_final.nif, cs_saft_final.iliq_out_outr, cs_saft_final.iva_out_outr, lctipo_doc, cs_saft_final.allow_total, cs_saft_final.total_iliquido, cs_saft_final.total_iva)
                                        ENDIF
                                        * Cliente
                                        thisform.insere_ft_cliente(lnmes, lndia, lndiario, lnprox_doc, lcdesc, lcconta_cliente, cs_saft_final.nif, thisform.total_doc, lctipo_doc)
                                        IF thisform.total_doc # cs_saft_final.total_documento
                                            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (9, lctipo_doc, ALLTRIM(cs_saft_final.nr_doc), "Problema com o valor Iliquido do documento")
                                        ELSE
                                            IF ABS(cs_saft_final.difiva) > 0.01
                                                INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (1, lctipo_doc, ALLTRIM(cs_saft_final.nr_doc), "For
ado valor do IVA")
                                            ENDIF
                                            IF cs_saft_final.desc_fin # 0
                                                thisform.total_descfin = thisform.total_descfin + cs_saft_final.desc_fin
                                                INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (1, lctipo_doc, ALLTRIM(cs_saft_final.nr_doc), "Documento com desconto financeiro")
                                            ENDIF
                                        ENDIF

                                        IF EMPTY(thisform.erro_documento)
                                            lnprox_doc = lnprox_doc + 1
                                        ENDIF
                                        *----------------------------------------------------------------------------
                                    ENDIF

                                ENDIF
                            ENDIF

                            IF !EMPTY(thisform.erro_documento)
                                INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (9, lctipo_doc, ALLTRIM(cs_saft_final.nr_doc), thisform.erro_documento)
                            ENDIF
                        ENDSCAN

                        thisform.act_painel(oSaft.oNrDocs, lnprox_doc, lnlast_doc)
                    ENDIF
                ENDIF
            ENDIF

            * Insere resumo no fich. relat
            lnnrdocs_trab = lnprox_doc - lnlast_doc - 1
            lcmsg_deb = ALLTRIM(TRANSFORM(thisform.total_nc, "999 999 999.99")) + "    (Incid. " + ALLTRIM(TRANSFORM(oSaft.oTotalDeb, "999 999 999.99")) + ")"
            lcmsg_crd = ALLTRIM(TRANSFORM(thisform.total_ft, "999 999 999.99")) + "    (Incid. " + ALLTRIM(TRANSFORM(oSaft.oTotalCrd, "999 999 999.99")) + ")"
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "", "")
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "", "")
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "Resumo:", "")
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "M
s", pa_geral_mes[thisform.combo1.ListIndex])
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "Di
rio", ALLTRIM(STR(thisform.txttabn2.text1.Value)) + " - " + ALLTRIM(thisform.txttabn2.label1.Value))
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "Primeiro Doc.", IIF(lnnrdocs_trab = 0, "0", ALLTRIM(STR(lnlast_doc + 1))))
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "
ltimo Doc.", IIF(lnnrdocs_trab = 0, "0", ALLTRIM(STR(lnprox_doc - 1))))
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "Nr. documentos", ALLTRIM(STR(lnnrdocs_trab)))
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "Descontos financeiros", ALLTRIM(TRANSFORM(thisform.total_descfin, "999 999 999.99")))
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "Total DEB", lcmsg_deb)
            INSERT INTO cs_relatorio (rlt_tipo_erro, rlt_tipo_doc, rlt_nr_doc, rlt_desc) VALUES (0, "", "Total CRD", lcmsg_crd)
            WAIT clear
            SELECT cs_relatorio
            GO top
            DO FORM importsaft_relat
        ELSE
            thisform.cntsaft.lblnif_sft.ForeColor = RGB(255,0,0)
            thisform.cntsaft.lblnif_cnt.ForeColor = RGB(255,0,0)
            thisform.cntsaft.img_nif.Picture = thisform.icon_notok
            =MESSAGEBOX("O NIF do ficheiro SAFT
 diferente do NIF da entidade." + CHR(13) + CHR(13) + ;
                        "A importa
o foi efetuada.", 0+48, "Aten
o...")
            WAIT clear
        ENDIF
        =thisform.variaveis_release()
        SELECT cs_relatorio
        USE
        WAIT clear
    ENDIF
ENDIF
RELEASE oSaft, p_decisao, p_inclui_doc, p_redoc, p_redoc_value, p_redoc_utilizado
ENDPROC
FontBold = .T.
Alignment = 1
Caption = "lbldocs_cnt"
Height = 17
Left = 213
Top = 94
Width = 90
ForeColor = 255,0,0
Name = "lbldocs_cnt"
FontBold = .T.
Alignment = 1
Caption = "lblnif_cnt"
Height = 17
Left = 213
Top = 63
Width = 90
ForeColor = 255,0,0
Name = "lblnif_cnt"
IMPORTSAFT2.cntsaft
lblnif_cnt
label
STop = 22
Left = 208
Height = 155
Width = 2
SpecialEffect = 0
Name = "Shape6"
IMPORTSAFT2.cntsaft
Shape6
shape
shape
FontBold = .T.
Alignment = 1
Caption = "lbltotalcrd_sft"
Height = 17
Left = 113
Top = 154
Width = 90
ForeColor = 255,0,0
Name = "lbltotalcrd_sft"
IMPORTSAFT2.cntsaft
lbltotalcrd_sft
label
label
FontBold = .T.
Alignment = 1
Caption = "lbltotaldeb_sft"
Height = 17
Left = 113
Top = 123
Width = 90
ForeColor = 255,0,0
Name = "lbltotaldeb_sft"
IMPORTSAFT2.cntsaft
lbltotaldeb_sft
label
label
FontBold = .T.
Alignment = 1
Caption = "lbldocs_sft"
Height = 17
Left = 140
Top = 94
Width = 63
ForeColor = 255,0,0
Name = "lbldocs_sft"
IMPORTSAFT2.cntsaft
lbldocs_sft
label
label
FontBold = .T.
Alignment = 1
Caption = "lblnif_sft"
Height = 17
Left = 113
Top = 63
Width = 90
ForeColor = 255,0,0
Name = "lblnif_sft"
IMPORTSAFT2.cntsaft
lblnif_sft
label
label
RTop = 22
Left = 90
Height = 155
Width = 2
SpecialEffect = 0
Name = "Shape5"
IMPORTSAFT2.cntsaft
Shape5
shape
shape
RTop = 146
Left = 2
Height = 2
Width = 348
SpecialEffect = 0
Name = "Shape4"
IMPORTSAFT2.cntsaft
Shape4
shape
shape
RTop = 116
Left = 2
Height = 2
Width = 348
SpecialEffect = 0
Name = "Shape3"
IMPORTSAFT2.cntsaft
Shape3
shape
shape
QTop = 86
Left = 2
Height = 2
Width = 348
SpecialEffect = 0
Name = "Shape2"
IMPORTSAFT2.cntsaft
Shape2
shape
shape
sAutoSize = .T.
FontSize = 8
Caption = "Faturas"
Height = 16
Left = 14
Top = 154
Width = 39
Name = "Label9"
IMPORTSAFT2.cntsaft
Label9
label
label
qAutoSize = .T.
FontSize = 8
Caption = "N/CRD"
Height = 16
Left = 14
Top = 124
Width = 33
Name = "Label8"
IMPORTSAFT2.cntsaft
Label8
label
label
uAutoSize = .T.
FontSize = 8
Caption = "Documentos"
Height = 16
Left = 14
Top = 94
Width = 62
Name = "Label7"
IMPORTSAFT2.cntsaft
Label7
label
label
nAutoSize = .T.
FontSize = 8
Caption = "NIF"
Height = 16
Left = 14
Top = 64
Width = 17
Name = "Label6"
IMPORTSAFT2.cntsaft
Label6
label
label
bTop = 21
Left = 2
Height = 158
Width = 350
BackStyle = 0
SpecialEffect = 0
Name = "Shape1"
IMPORTSAFT2.cntsaft
Shape1
shape
shape
rTop = 292
Left = 58
Width = 357
Height = 197
BackStyle = 0
BorderWidth = 0
TabIndex = 18
Name = "cntsaft"
IMPORTSAFT2
cntsaft
    container
    container
FontSize = 8
RowSourceType = 6
RowSource = "parm.chave"
Height = 21
Left = 123
Style = 2
TabIndex = 5
Top = 43
Width = 136
Name = "Combo2"
IMPORTSAFT2
Combo2
combobox
combobox
AutoSize = .T.
FontSize = 8
Caption = "Modelo de Integra
Height = 16
Left = 14
Top = 45
Width = 105
TabIndex = 6
Name = "Label5"
IMPORTSAFT2
Label5
label
label
%PROCEDURE Text1.When
ENDPROC
TTop = 101
Left = 168
Width = 256
Height = 21
SpecialEffect = 2
Enabled = .T.
TabIndex = 7
orderfld = codigo
order = key_1
mform = c0102_f
fldesc = diario.descricao
alias = diario
txtwidth = 41
acnull = .T.
Name = "Txttabn2"
Text1.Comment = ""
Text1.ControlSource = "p_diario"
Text1.Height = 20
Text1.InputMask = "99"
Text1.Left = 0
Text1.SelectOnEntry = .T.
Text1.SpecialEffect = 1
Text1.Top = 1
Text1.Width = 40
Text1.Name = "Text1"
Label1.BorderStyle = 0
Label1.SpecialEffect = 1
Label1.Name = "Label1"
Image1.Height = 15
Image1.Width = 15
Image1.Name = "Image1"
IMPORTSAFT2
Txttabn2
    container
..\shared\classes\clstxt.vcx
txttabn
FontSize = 8
RowSourceType = 5
RowSource = "pa_geral_mes"
FirstElement = 1
Height = 21
Left = 168
NumberOfElements = 0
Style = 2
TabIndex = 9
Top = 128
Width = 96
Name = "Combo1"
IMPORTSAFT2
Combo1
combobox
combobox
_PRODUTO_SERVICO
_TAXA_IVA
LCRETw
Conta de iva (C
o existe ou n
 de movimento
Conta de vendas (C
o existe ou n
 de movimento
_DIARIO
_PROX_DOC
_DESC
_VARIAVEL
_ILIQ
_DOCUMENTO
_ALLOW
_ALLOW_ILIQ
_ALLOW_IVA
LCCONTA_INI
LCCONTA_IVA
LCCONTAD
LCCONTAC
LNVALOR
THISFORM
CHECK_CONTA
INSERE_LINHA
GET_CONTA_IVA
ERRO_DOCUMENTO
TOTAL_DOC
lanca
cs_lastdoc
_DIARIO
LNRET
L_DOCU
LANCA
L_MES
L_DIARIO
CS_LASTDOC
MAX_L_DOCU+
SAFT_CN
SAFT_CI
SAFT_CO
SAFT_CC
SAFT_FTDESC
SAFT_FSDESC
SAFT_FRDESC
SAFT_NDDESC
SAFT_NCDESC
SAFT_FS
SAFT_CONTAFS
SAFT_1111
SAFT_1112
SAFT_1113
SAFT_1114
SAFT_1115
SAFT_1121
SAFT_1122
SAFT_1123
SAFT_1124
SAFT_1125
SAFT_1131
SAFT_1132
SAFT_1133
SAFT_1134
SAFT_1135
SAFT_1141
SAFT_1142
SAFT_1143
SAFT_1144
SAFT_1145
SAFT_1211
SAFT_1212
SAFT_1213
SAFT_1214
SAFT_1215
SAFT_1221
SAFT_1222
SAFT_1223
SAFT_1224
SAFT_1225
SAFT_1231
SAFT_1232
SAFT_1233
SAFT_1234
SAFT_1235
SAFT_1241
SAFT_1242
SAFT_1243
SAFT_1244
SAFT_1245
SAFT_1311
SAFT_1312
SAFT_1313
SAFT_1314
SAFT_1315
SAFT_1321
SAFT_1322
SAFT_1323
SAFT_1324
SAFT_1325
SAFT_1331
SAFT_1332
SAFT_1333
SAFT_1334
SAFT_1335
SAFT_1341
SAFT_1342
SAFT_1343
SAFT_1344
SAFT_1345
SAFT_2111
SAFT_2112
SAFT_2113
SAFT_2114
SAFT_2115
SAFT_2121
SAFT_2122
SAFT_2123
SAFT_2124
SAFT_2125
SAFT_2131
SAFT_2132
SAFT_2133
SAFT_2134
SAFT_2135
SAFT_2141
SAFT_2142
SAFT_2143
SAFT_2144
SAFT_2145
SAFT_2211
SAFT_2212
SAFT_2213
SAFT_2214
SAFT_2215
SAFT_2221
SAFT_2222
SAFT_2223
SAFT_2224
SAFT_2225
SAFT_2231
SAFT_2232
SAFT_2233
SAFT_2234
SAFT_2235
SAFT_2241
SAFT_2242
SAFT_2243
SAFT_2244
SAFT_2245
SAFT_2311
SAFT_2312
SAFT_2313
SAFT_2314
SAFT_2315
SAFT_2321
SAFT_2322
SAFT_2323
SAFT_2324
SAFT_2325
SAFT_2331
SAFT_2332
SAFT_2333
SAFT_2334
SAFT_2335
SAFT_2341
SAFT_2342
SAFT_2343
SAFT_2344
SAFT_2345
SAFT_CN
SAFT_CI
SAFT_CO
SAFT_CC
SAFT_FTDESC
SAFT_FSDESC
SAFT_FRDESC
SAFT_NDDESC
SAFT_NCDESC
SAFT_FS
SAFT_CONTAFS
SAFT_1111
SAFT_1112
SAFT_1113
SAFT_1114
SAFT_1115
SAFT_1121
SAFT_1122
SAFT_1123
SAFT_1124
SAFT_1125
SAFT_1131
SAFT_1132
SAFT_1133
SAFT_1134
SAFT_1135
SAFT_1141
SAFT_1142
SAFT_1143
SAFT_1144
SAFT_1145
SAFT_1211
SAFT_1212
SAFT_1213
SAFT_1214
SAFT_1215
SAFT_1221
SAFT_1222
SAFT_1223
SAFT_1224
SAFT_1225
SAFT_1231
SAFT_1232
SAFT_1233
SAFT_1234
SAFT_1235
SAFT_1241
SAFT_1242
SAFT_1243
SAFT_1244
SAFT_1245
SAFT_1311
SAFT_1312
SAFT_1313
SAFT_1314
SAFT_1315
SAFT_1321
SAFT_1322
SAFT_1323
SAFT_1324
SAFT_1325
SAFT_1331
SAFT_1332
SAFT_1333
SAFT_1334
SAFT_1335
SAFT_1341
SAFT_1342
SAFT_1343
SAFT_1344
SAFT_1345
SAFT_2111
SAFT_2112
SAFT_2113
SAFT_2114
SAFT_2115
SAFT_2121
SAFT_2122
SAFT_2123
SAFT_2124
SAFT_2125
SAFT_2131
SAFT_2132
SAFT_2133
SAFT_2134
SAFT_2135
SAFT_2141
SAFT_2142
SAFT_2143
SAFT_2144
SAFT_2145
SAFT_2211
SAFT_2212
SAFT_2213
SAFT_2214
SAFT_2215
SAFT_2221
SAFT_2222
SAFT_2223
SAFT_2224
SAFT_2225
SAFT_2231
SAFT_2232
SAFT_2233
SAFT_2234
SAFT_2235
SAFT_2241
SAFT_2242
SAFT_2243
SAFT_2244
SAFT_2245
SAFT_2311
SAFT_2312
SAFT_2313
SAFT_2314
SAFT_2315
SAFT_2321
SAFT_2322
SAFT_2323
SAFT_2324
SAFT_2325
SAFT_2331
SAFT_2332
SAFT_2333
SAFT_2334
SAFT_2335
SAFT_2341
SAFT_2342
SAFT_2343
SAFT_2344
SAFT_2345+
SAFT_CN
SAFT_CI
SAFT_CO
SAFT_CC
SAFT_FTDESC
SAFT_FSDESC
SAFT_FRDESC
SAFT_NDDESC
SAFT_NCDESC
SAFT_FS
SAFT_CONTAFS
SAFT_1111
SAFT_1112
SAFT_1113
SAFT_1114
SAFT_1115
SAFT_1121
SAFT_1122
SAFT_1123
SAFT_1124
SAFT_1125
SAFT_1131
SAFT_1132
SAFT_1133
SAFT_1134
SAFT_1135
SAFT_1141
SAFT_1142
SAFT_1143
SAFT_1144
SAFT_1145
SAFT_1211
SAFT_1212
SAFT_1213
SAFT_1214
SAFT_1215
SAFT_1221
SAFT_1222
SAFT_1223
SAFT_1224
SAFT_1225
SAFT_1231
SAFT_1232
SAFT_1233
SAFT_1234
SAFT_1235
SAFT_1241
SAFT_1242
SAFT_1243
SAFT_1244
SAFT_1245
SAFT_1311
SAFT_1312
SAFT_1313
SAFT_1314
SAFT_1315
SAFT_1321
SAFT_1322
SAFT_1323
SAFT_1324
SAFT_1325
SAFT_1331
SAFT_1332
SAFT_1333
SAFT_1334
SAFT_1335
SAFT_1341
SAFT_1342
SAFT_1343
SAFT_1344
SAFT_1345
SAFT_2111
SAFT_2112
SAFT_2113
SAFT_2114
SAFT_2115
SAFT_2121
SAFT_2122
SAFT_2123
SAFT_2124
SAFT_2125
SAFT_2131
SAFT_2132
SAFT_2133
SAFT_2134
SAFT_2135
SAFT_2141
SAFT_2142
SAFT_2143
SAFT_2144
SAFT_2145
SAFT_2211
SAFT_2212
SAFT_2213
SAFT_2214
SAFT_2215
SAFT_2221
SAFT_2222
SAFT_2223
SAFT_2224
SAFT_2225
SAFT_2231
SAFT_2232
SAFT_2233
SAFT_2234
SAFT_2235
SAFT_2241
SAFT_2242
SAFT_2243
SAFT_2244
SAFT_2245
SAFT_2311
SAFT_2312
SAFT_2313
SAFT_2314
SAFT_2315
SAFT_2321
SAFT_2322
SAFT_2323
SAFT_2324
SAFT_2325
SAFT_2331
SAFT_2332
SAFT_2333
SAFT_2334
SAFT_2335
SAFT_2341
SAFT_2342
SAFT_2343
SAFT_2344
SAFT_2345
999999990
lanca
_DIARIO
_DOCU
_CONTAD
_CONTAC
_DESC
_VALOR
_MAPAR
_TIPOMAPAR
L_MES
L_DIA
L_DIARIO
L_DOCU
L_LINHA
L_CONTAD
L_CONTAC
L_DESC
L_VALOR
L_MAPAR
L_TMAPAR
L_NIF
L_CONCILD
L_CONCILC
L_PICD
L_PICC
L_DATAHORA
THISFORM
LINHA_LANC
ACT_GRAU_SUPERIOR]
plano
key_1
_CONTA
LCRET
XSEEK
PLANO
CONTA_IVAe
cs_plano_nifs
key_1
LCRET
XSEEK
CS_PLANO_NIFS
CONTA1
_DIARIO
_PROX_DOC
_DESC
_CONTA
_TOTAL
_DOCUMENTO
LCCONTAD
LCCONTAC
THISFORM
ERRO_DOCUMENTO
INSERE_LINHA
TOTAL_NC
TOTAL_FT
_NIF
LCMERCADO
LCRET
THISFORM
MERCADO\
plano
key_1
_CONTA
LCRET
PLANO
PLANO
cs_relatorio
Criada conta:
cs_plano_nifs
_CONTA
_DESC
_MORADA
_MERCADO
_EMAIL
LCMORADA
LCLOCALIDADE
LCCODPOS
LCCONTA_GS
LCTEL
LCFAX
LCEMAIL
GRAU_SUP
THISFORM
EXTRAIR_BILLINGADDRESS
CONTA
CONTA_GS
CONTA_RFL
CONTRAP
CONTA_IVA
TAXA_IVA
DED_IVA
REGIAO
MERCADO
RECAP
MORADA
LOCAL
CODPOS
EMAIL
CENTRO
CHAVER
AFECTA100
RLT_TIPO_ERRO
RLT_TIPO_DOC
RLT_NR_DOC
RLT_DESC
CS_SAFT_FINAL
TIPO_DOCUMENTO
NR_DOCU
plano
key_1
plano
key_1
plano
key_1
_RADICAL
_CLIENTE
LCRADICAL
LNDIGITOS
LCCONTA
LNIND
LNFIM
LCRET
THISFORM
CLEAN_NRCLIENTE
_VARIAVEL
_NOME
_MORADA
_MERCADO
_EMAIL
_CLIENTE
LCCONTA_RADICAL
LCCONTA_NOVA
LCRET
THISFORM
GET_CONTA_CLIENTE
GET_CONTA_DISPONIVEL
CREATE_CONTAC
DE,AT,BE,BG,CY,HR,DK,SK,SI,ES,EE,FI,FR,GR,HU,IE,IT,LV,LT,LU,MT,NL,PL,GB,CZ,RD,SE
LCPAIS
LCRET
LC_INTRACOMUNITARIOS
_MORADA
LCRET
LCTRAB
LNCHARS
999 999_
999 999_
999 999_
999 999 999.99_
999 999 999.99_
999 999 999.99_
999 999 999.99_
_DOCS_SFT
_PROX
_LAST
LN_NR_DOCS_CNT
THISFORM
CNTSAFT
LBL1DOC
CAPTION
LBL9DOC
LBLDOCS_CNT
LBLTOTALDEB_CNT
TOTAL_NC
LBLTOTALCRD_CNT
TOTAL_FT
LBLDOCS_SFT
FORECOLOR
IMG_DOCS
PICTURE
ICON_OK
ICON_NOTOK
LBLTOTALDEB_SFT
IMG_TOTALDEB
LBLTOTALCRD_SFT
IMG_TOTALCRD
VISIBLE
_CONTA
LCRET
_nrclienteb
0123456789
_NRCLIENTE
LCNRCLIENTE
LNIND
LCCHAR
LCRET
110388
110347
110147
110377
110560
110167
_SERIAL
LBRET
cs_saft_final
cs_doc_file
cs_lista_documentos
LBRET
DISTINCT
TIPO_DOCUMENTO
CS_SAFT_FINAL
DATA_DOCUMENTO
CS_DOC_FILE
TIPO
DESCRICAO
ESCOLHIDO
GET_DESC_TIPO_DOC
CS_LISTA_DOCUMENTOS
Fatura
Fatura simplificada
Fatura-recibo
Nota de d
Nota de cr
_TIPODOC
LCRET
_TIPODOC
LBRET
LNIND
P_INCLUI_DOC:
LEFT(nr_doc, _dimensao)
RIGHT(nr_doc, _dimensao)6
inlist(tipo_documento
SELECT DISTINCT &lcexpr as serie  FROM cs_saft_final  WHERE YEAR(data_documento) = _ano AND  MONTH(data_documento) = _mes AND  &lcdocs  ORDER BY tipo_documento  INTO CURSOR cs_serie_file
cs_serie_documentos
_MES
_DIMENSAO
LNRET
LNRECCOUNT
LCEXPR
LCDOCS
LNIND
LATIPODOC
P_INCLUI_DOC
CS_SERIE_FILE
SERIE
ESCOLHIDO
REDOC
CS_SERIE_DOCUMENTOS
LEFT(nr_doc, CC
RIGHT(nr_doc, CC
importsaft_series
 or 6
_DIMENSAO
LCRET
LCTRAB
LNIND
IMPORTSAFT_SERIES
THISFORM
CS_SERIE_DOCUMENTOS
ESCOLHIDO
SERIE
REDOC
P_REDOC
P_REDOC_VALUE
P_REDOC_UTILIZADO
P_INCLUI_DOC
P_REDOC
P_REDOC_VALUE
CS_PLANO_NIFS
cs_lista_documentos
cs_serie_documentos
P_DIARIO
ARRAY_MESES_GERAL
CS_LISTA_DOCUMENTOS
TIPO
DESCRICAO
ESCOLHIDO
CS_SERIE_DOCUMENTOS
SERIE
REDOCP
    v.
  (build
plano
cs_plano_nifs
WPATH
CAPTION
P_IMPORTSAFT_VERSAO
P_IMPORTSAFT_BUILD
THISFORM
CNTSAFT
LBLNIF_SFT
LBLNIF_CNT
LBLDOCS_SFT
LBLDOCS_CNT
LBLTOTALDEB_SFT
LBLTOTALDEB_CNT
LBLTOTALCRD_SFT
LBLTOTALCRD_CNT
LBLTIPOSAFT
LBL1DOC
LBL9DOC
IMG_NIF
PICTURE
IMG_DOCS
IMG_TOTALDEB
IMG_TOTALCRD
CONTA
PLANO
CS_PLANO_NIFS
KEY_1
CHAVE*
CLEAR_RELATIONS
P_CANCELA
P_DIARIOIMPORT
_FILENAME
P_ULTIMODIAMES*
ARRAY_MESES_GERAL_X
CS_SERIE_DOCUMENTOS
CS_LISTA_DOCUMENTOS
P_DIARIO7
_DOC
_DIMENSAO
chave_conta,
insere_ft
lastdocD
variaveis_declar8
variaveis_clean
variaveis_released
insere_linha7#
get_conta_iva
get_conta_cliente
insere_ft_cliente
chave_conta_mercado
check_conta
create_contaF*
get_conta_disponivel
check_clientec5
mercado
extrair_billingaddress
act_painelu9
tipo_conta_cliente
clean_nrcliente|>
serial_first
load_lista_documentos;@
get_desc_tipo_doc
check_inclui_doc
load_series_documentos=D
select_series
clean_arraysHJ
Destroy
Load(M
InitPN
Release
UnloadyR
get_serie_1_doc
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _3V21081L21125615297
 WINDOWS _3V21081L31132222968
 WINDOWS _3V21081L41128366256
 WINDOWS _3V21081L51125615297n
 WINDOWS _3V21081L61125615297
 WINDOWS _3V21081L71125615297
 WINDOWS _3V21081L81125615297d
 WINDOWS _3V21081L911256152974
 WINDOWS _3V21081LA1125615297
 WINDOWS _3V21081LB1128365931
 WINDOWS _3W50Y9QRO1132221078l
 WINDOWS _3V21081L21132222968i
 WINDOWS _3W50Y9QRP1128366256-
 WINDOWS _3V21081L21128366256_
 WINDOWS _3W50YHNTG1132222968
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
IMPORTSAFT_RELAT
Height = 286
Width = 615
DoCreate = .T.
AutoCenter = .T.
Caption = "Relat
rio de importa
o do SAFT"
ControlBox = .F.
WindowType = 1
Name = "IMPORTSAFT_RELAT"
PROCEDURE Init
thisform.grid1.SetAll("dynamicforecolor", "iif(rlt_tipo_erro=9, RGB(255,0,0), IIF(rlt_tipo_erro=1, RGB(0,128,0), RGB(0,128,0)))", "Column")
ENDPROC
THISFORM
RELEASE
Click,
BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
IMPORTSAFT_RELAT
Label3
label
Grid1
IMPORTSAFT_RELAT
~ColumnCount = 3
FontSize = 8
DeleteMark = .F.
Height = 222
Left = 13
Panel = 1
ReadOnly = .T.
RecordSource = "cs_relatorio"
RowHeight = 17
ScrollBars = 2
TabIndex = 1
Top = 12
Width = 591
GridLineColor = 192,192,192
Name = "Grid1"
Column1.FontSize = 8
Column1.ControlSource = "rlt_tipo_doc"
Column1.Width = 51
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.FontSize = 8
Column2.ControlSource = "rlt_nr_doc"
Column2.Width = 148
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.FontSize = 8
Column3.ControlSource = "rlt_desc"
Column3.Width = 359
Column3.ReadOnly = .T.
Column3.Name = "Column3"
header
header
Header1
IMPORTSAFT_RELAT.Grid1.Column1
8FontSize = 8
Caption = " Tipo Doc."
Name = "Header1"
textbox
textbox
Text1
IMPORTSAFT_RELAT.Grid1.Column1
wFontSize = 8
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header
header
Header1
IMPORTSAFT_RELAT.Grid1.Column2
<FontSize = 8
Caption = " Nr. Documento"
Name = "Header1"
textbox
textbox
Text1
IMPORTSAFT_RELAT.Grid1.Column2
wFontSize = 8
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header
header
Header1
IMPORTSAFT_RELAT.Grid1.Column3
8FontSize = 8
Caption = " Descri
Name = "Header1"
textbox
textbox
Text1
IMPORTSAFT_RELAT.Grid1.Column3
wFontSize = 8
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
commandbutton
commandbutton
Command1
IMPORTSAFT_RELAT
Top = 248
Left = 524
Height = 25
Width = 80
FontSize = 8
Cancel = .T.
Caption = "\<Sair"
TabIndex = 2
Name = "Command1"
.PROCEDURE Click
thisform.Release
ENDPROC
qAutoSize = .T.
FontSize = 8
Caption = "Erro"
Height = 16
Left = 115
Top = 243
Width = 22
Name = "Label3"
label
IMPORTSAFT_RELAT
Label1
label
label
commandbutton
commandbutton
Command2
IMPORTSAFT_RELAT
iTop = 248
Left = 440
Height = 25
Width = 80
FontSize = 8
Caption = "\<Imprimir"
Name = "Command2"
PROCEDURE Click
select cs_relatorio
go top
IF EOF()
    =MESSAGEBOX("N
 nada p/ a imprimir", 0+64, "...")
    DO FORM importsaft_relat2 WITH thisform.Top, thisform.Left
ENDIF
ENDPROC
 nada p/ a imprimir
importsaft_relat2
CS_RELATORIO
IMPORTSAFT_RELAT2
THISFORM
Click,
shape
shape
Shape1
IMPORTSAFT_RELAT
|Top = 244
Left = 98
Height = 13
Width = 13
Curvature = 50
BackColor = 255,0,0
BorderColor = 255,0,0
Name = "Shape1"
shape
shape
Shape3
IMPORTSAFT_RELAT
|Top = 244
Left = 13
Height = 13
Width = 13
Curvature = 50
BackColor = 0,128,0
BorderColor = 0,128,0
Name = "Shape3"
vAutoSize = .T.
FontSize = 8
Caption = "Informa
Height = 16
Left = 30
Top = 243
Width = 56
Name = "Label1"
dynamicforecolor
iif(rlt_tipo_erro=9, RGB(255,0,0), IIF(rlt_tipo_erro=1, RGB(0,128,0), RGB(0,128,0)))
Column
THISFORM
GRID1
SETALL
Init,
h_SDM
importsaft2
importsaft1
A licen
a encontrada n
o est
 de acordo com esta vers
dulo de importa
o do ficheiro SAFT de fatura
Contacte o fornecedor da aplica
importsaft2
importsaft2
importsaft1
importsaft1
_VERSAO
_VERSAO_LIC
P_IMPORTSAFT_VERSAO
P_IMPORTSAFT_BUILD
P_C_DEVELOP
IMPORTSAFT2
IMPORTSAFT1
cs_saft_customer
cs_saft_product
cs_saft_taxtable
cs_saft_invoices_master
cs_saft_final
CS_SAFT_CUSTOMER
CS_SAFT_PRODUCT
CS_SAFT_TAXTABLE
CS_SAFT_INVOICES_MASTER
CS_SAFT_FINAL
PSTRINGFILEXML
OFICHEIRO
OLERNIF
GET_NIF
OLERMASTERFILES
GET_MASTERFILES
GET_INVOICES
OLERTAXTABLE
GET_TAXTABLE
OLERTOTALSALES
GET_TOTALSALES
ONRDOCS
ONRDOCSANULADOS
_TAGINI
_WITHTAG
LCRET
LNINI
LNFIM
LCTAGFIM
PSTRINGFILEXML
_TAGINI
_TAGFIM
_WITHTAG
LCRET
LNINI
LNFIM
LCTAGFIM
PSTRINGFILEXML4
<TaxRegistrationNumber>
GET_SUBSTR
<NumberOfEntries>
<TotalDebit>
<TotalCredit>
ONRDOCS
GET_SUBSTR
OTOTALDEB
OTOTALCRD
<MasterFiles>
<MasterFiles xmlns=
</MasterFiles>
<CustomerID>
<CustomerID>#QpCI#
<CustomerTaxID>
<CustomerTaxID>#QpCTID#
<AddressDetail>
<AddressDetail>#AD
<City>
<City>#CT
<PostalCode>
<PostalCode>#PT
<Country>
<Country>#CY
<ProductCode>
<ProductCode>#QpPc
cs_saft_masterfiles
#QpCTID#
Producttype
cs_saft_masterfiles/
Companyname
cs_saft_masterfiles/
Telephone
cs_saft_masterfiles/
, telephone
, space(15)6
 as telephone
cs_saft_masterfiles/
, fax
, space(15)6
 as fax
Email
cs_saft_masterfiles/
, email
, space(39)6
 as email
SELECT customerid as customerid, accountid as accountid, customertaxid as customertaxid,
companyname as companyname, billingaddress as billingaddress
FROM cs_saft_masterfiles WHERE !EMPTY(customerid)
INTO CURSOR cs_saft_customer
SELECT customerid as customerid, " " as accountid, customertaxid as customertaxid,
" " as companyname, " " as billingaddress,
" " as Telephone, " " as Fax, " " as Email
FROM cs_saft_masterfiles WHERE !EMPTY(customerid)
INTO CURSOR cs_saft_customer
&lcselect_customer
productcode/
#QpPc
cs_saft_masterfiles
cs_saft_product
LCSTRING
LCFIX_TEL
LCFIX_FAX
LCFIX_EMAIL
LCSELECT_CUSTOMER
GET_SUBSTR
GET_SUBSTR_WITH_TAGFIM
CS_SAFT_MASTERFILES
CUSTOMERTAXID
ORESUMIDO
ODETALHECLIENTE
CUSTOMERID
KEY_1
PRODUCTCODE
PRODUCTTYPE
PRODUCTNUMBERCODE
CS_SAFT_PRODUCT
PTIPO_CHAVE_PRODUCTG
<TaxTable>
cs_saft_taxtable
LCSTRING
GET_SUBSTR
<SalesInvoices>
<DocumentStatus>
</DocumentStatus>
<Tax>
</Tax>
<DocumentTotals>
</DocumentTotals>
<CustomerID>
<CustomerID>#QpCI#
cs_saft_invoices_master_x
cs_saft_invoices_master_x
taxpayableb
cs_saft_invoices_master
cs_saft_invoices_detail_x
<InvoiceNo>
</InvoiceNo>
</Invoice>
<Invoice>C
<Tax>
</Tax>
cs_saft_invoices_detail_x
debitamount/
!(EMPTY(creditamount) AND EMPTY(taxpercentage))
!(EMPTY(creditamount) AND EMPTY(debitamount) AND EMPTY(taxpercentage))
cs_saft_product
ln_ise_p
ln_red_p
ln_int_p
ln_nor_p
ln_out_p
ln_ise_s
ln_red_s
ln_int_s
ln_nor_s
ln_out_s
ln_ise_o
ln_red_o
ln_int_o
ln_nor_o
ln_out_o
lnincidencia_parcela = &incid_field[lnind]
&incid_field[lnind] = lnincidencia_parcela - lndesconto_parcela
cs_saft_invoices_masterQ
cs_saft_customerQ
cs_saft_final
LCSTRING
LCFIND
LNINI
LNFIM
LC_INVOICE
LC_INVOICE_CLEAN_PONTO
LC_INVOICE_CLEAN_ZERO
LCSTRING_WRK
LCFATURA
LCTIPO
LNAMOUNT
LCTAXCODE
LNTAXA_ISE
LNTAXA_RED
LNTAXA_INT
LNTAXA_NOR
LNTAXA_OUT
LBSEEK
LCSCAN
LCTIPO_DOCUMENTO
LNDESCONTO
LN_ISE_P
LN_RED_P
LN_INT_P
LN_NOR_P
LN_OUT_P
LN_ISE_S
LN_RED_S
LN_INT_S
LN_NOR_S
LN_OUT_S
LN_ISE_O
LN_RED_O
LN_INT_O
LN_NOR_O
LN_OUT_O
LN_DESC_FIN
LNDESCONTO_PARCELA
LNDESCONTO_WRK
LNIND
LNTOTAL_S_DESC
LNINCIDENCIA_PARCELA
LNPERMITE_TOTAIS
GET_SUBSTR
GROSSTOTAL
INVOICETYPE
INVOICESTATUS
OTOTALFT
OTOTALNC
INVOICENO
INVOICEDATE
CUSTOMERID
TAXPAYABLE
NETTOTAL
NET_ISE_PROD
NET_RED_PROD
NET_INT_PROD
NET_NOR_PROD
NET_OUT_PROD
NET_ISE_SERV
NET_RED_SERV
NET_INT_SERV
NET_NOR_SERV
NET_OUT_SERV
NET_ISE_OUTR
NET_RED_OUTR
NET_INT_OUTR
NET_NOR_OUTR
NET_OUT_OUTR
I_ISE_P
I_RED_P
I_INT_P
I_NOR_P
I_OUT_P
I_ISE_S
I_RED_S
I_INT_S
I_NOR_S
I_OUT_S
I_ISE_O
I_RED_O
I_INT_O
I_NOR_O
I_OUT_O
DESC_FIN
ALLOW_TOTAL
CS_SAFT_INVOICES_MASTER_X
CS_SAFT_INVOICES_MASTER
CS_SAFT_INVOICES_DETAIL_X
LINENUMBER
PRODUCTCODE
PRODUCTDESCRIPTION
QUANTITY
UNITOFMEASURE
UNITPRICE
TAXPOINTDATE
DESCRIPTION
CREDITAMOUNT
DEBITAMOUNT
TAXTYPE
TAXCOUNTRYREGION
TAXCODE
TAXPERCENTAGE
SETTLEMENTAMOUNT
ORESUMIDO
CS_SAFT_PRODUCT
PRODUCTTYPE
INCID_FIELD
NR_DOC
DATA_DOCUMENTO
TIPO_DOCUMENTO
CLIENTE
ACCOUNTID
CONTA_CLIENTE
COMPOR_NIF
CUSTOMERTAXID
BILLINGADDRESS
COMPANYNAME
MORADA
TELEPHONE
EMAIL
ILIQ_ISE_PROD
ILIQ_RED_PROD
ILIQ_INT_PROD
ILIQ_NOR_PROD
ILIQ_OUT_PROD
ILIQ_ISE_SERV
ILIQ_RED_SERV
ILIQ_INT_SERV
ILIQ_NOR_SERV
ILIQ_OUT_SERV
ILIQ_ISE_OUTR
ILIQ_RED_OUTR
ILIQ_INT_OUTR
ILIQ_NOR_OUTR
ILIQ_OUT_OUTR
IVA_ISE_PROD
IVA_RED_PROD
IVA_INT_PROD
IVA_NOR_PROD
IVA_OUT_PROD
IVA_ISE_SERV
IVA_RED_SERV
IVA_INT_SERV
IVA_NOR_SERV
IVA_OUT_SERV
IVA_ISE_OUTR
IVA_RED_OUTR
IVA_INT_OUTR
IVA_NOR_OUTR
IVA_OUT_OUTR
TOTAL_IVA
TOTAL_ILIQUIDO
TOTAL_DOCUMENTO
DIFIVA
CS_SAFT_CUSTOMER
CS_SAFT_FINAL
ONRDOCSANULADOS
_MORADA
LCRET
LCTRAB
LNCHARS
FINAL
DESCONHECIDO
999999990
DESCONHECIDO
_BILLINGADDRESS
LCRET
LCNIF
LCPAIS
EXTRAIR_BILLINGADDRESS
DESTROY
LER_SAFT
GET_SUBSTR^
GET_SUBSTR_WITH_TAGFIM
GET_NIF
GET_TOTALSALESk
GET_MASTERFILES0
GET_TAXTABLEQ
GET_INVOICES
EXTRAIR_BILLINGADDRESS
COMPOR_NIF
OFICHEIRO
ONRDOCS
ONRDOCSANULADOS
OTOTALDEB
OTOTALCRD
OTOTALFT
OTOTALNC
OLERNIF
OLERMASTERFILES
OLERTAXTABLE
OLERTOTALSALES
ORESUMIDO
ODETALHECLIENTE
PSTRINGFILEXML
PTIPO_CHAVE_PRODUCT
LER_SAFT_VENDAS
CUSTOM)=
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _S9D0NX3ST 675898539
 COMMENT RESERVED
 WINDOWS _S8L12HTFT 675898555
 COMMENT RESERVED
 WINDOWS _S8G0NY7LK 682126982
 WINDOWS _S9D0NX3ST 681939859!
 WINDOWS _S8H15XT84 679253084
 WINDOWS _S9M1050RW 660375229
 COMMENT RESERVED
 WINDOWS _04S160NX7 744789521
 COMMENT RESERVED
 WINDOWS _S8G0NY7LK 794319772
 WINDOWS _S9D0NX3ST 691245872
 WINDOWS _S8H15XT84 794319773
 WINDOWS _S9M1050RW 660375229E
 COMMENT RESERVED
 WINDOWS _S8G0NY7LK 794319836
 WINDOWS _S9D0NX3ST 678792765
 WINDOWS _S8H15XT84 794319837
 WINDOWS _S9M1050RW 660375229P
 COMMENT RESERVED
VERSION =   3.00
!Arial, 0, 8, 5, 14, 11, 30, 3, 0
txttabsp
Pixels
txttab.bmp
!Arial, 0, 8, 5, 14, 11, 30, 3, 0
txttabsimples
Pixels
txttabsimples.bmp
txttabsimples.bmp
Class
textbox
txttabsimples
!Arial, 0, 8, 5, 14, 11, 30, 3, 0
txtdate
Pixels
txtdate.bmp
txtdate.bmp
Class
textbox
txtdate
textbox
Init,
txttab.bmp
textbox
Class
    container
txttabsp
txttabsp
)PROCEDURE Init
*this.value=""
ENDPROC
lPicture = ..\icons\locate.bmp
BackStyle = 0
Height = 15
Left = 52
Top = 4
Width = 15
Name = "Image1"
Image1
image
image
FontSize = 8
Enabled = .F.
Height = 21
Left = 69
Top = 1
Width = 49
ForeColor = 128,0,255
DisabledForeColor = 128,0,255
Name = "label1"
txttabsp
label1
textbox
textbox
JFontSize = 8
Height = 21
Left = 0
Top = 1
Width = 48
Name = "Text1"
txttabsp
Text1
textbox
textbox
!Arial, 0, 8, 5, 14, 11, 30, 3, 0
txttab
Pixels
txttab.bmp
Class
    container
txttab
lPicture = ..\icons\locate.bmp
BackStyle = 0
Height = 15
Left = 52
Top = 4
Width = 15
Name = "Image1"
txttab
Image1
image
image
FontSize = 8
Enabled = .F.
Height = 21
Left = 69
Top = 1
Width = 49
ForeColor = 128,0,255
DisabledForeColor = 0,0,0
Name = "label1"
txttab
label1
textbox
textbox
JFontSize = 8
Height = 21
Left = 0
Top = 1
Width = 48
Name = "Text1"
Text1
dFontSize = 8
DateFormat = 11
Height = 21
InputMask = "99/99/9999"
Width = 80
Name = "txtdate"
txttab
textbox
textbox
Width = 123
Height = 29
BackStyle = 0
BorderWidth = 1
SpecialEffect = 2
BackColor = 192,192,192
alias =
filtro =
mensagem =
fldesc =
mform =
order =
sepwidth = 20
txtwidth = 48
fonte = 9
orderfld =
memcodi =
Name = "txttab"
    container
textbox
    txtfiltro
this.valueb
this.valueb
VALUE
Valid,
PROCEDURE Valid
do case
    case type("this.value")="N"
        this.value=ctod(alltrim(str(this.value)))
    case type("this.value")="S"
        this.value=ctod(this.value)
endcase
ENDPROC
FontSize = 8
Alignment = 0
Value =
ControlSource = ""
Enabled = .F.
Height = 21
Width = 100
DisabledForeColor = 128,0,255
Name = "txttabsimples"
NBUTTON
NSHIFT
NXCOORD
NYCOORD
LMENS
LCOUNT
LINICIO
LMOSTRA
PARENT
MENSAGEM
LMYARRAY
LEXPR
ALIAS
PARENT
REFRESH
MouseMove,
ProgrammaticChange
FontSize = 8
Height = 20
SpecialEffect = 1
Width = 220
variavel =
alias =
retorno =
_retornotabela =
desc =
titulo =
tipo_variavel = N
expressao_ok = .T.
Name = "txtfiltro"
textbox
Class
!Arial, 0, 8, 5, 14, 11, 30, 3, 0
Pixels
!Arial, 0, 8, 5, 14, 11, 30, 3, 0
txttabn
Pixels
txttab.bmp
txttab.bmp
Class
    container
txttabn
lPicture = ..\icons\locate.bmp
BackStyle = 0
Height = 15
Left = 52
Top = 4
Width = 15
Name = "Image1"
txttabn
Image1
image
image
FontSize = 8
Enabled = .F.
Height = 21
Left = 69
Top = 1
Width = 49
ForeColor = 255,255,230
DisabledForeColor = 0,0,255
Name = "label1"
txttabn
label1
textbox
textbox
JFontSize = 8
Height = 21
Left = 0
Top = 1
Width = 48
Name = "Text1"
txttabn
Text1
textbox
textbox
`Width = 121
Height = 24
BackStyle = 0
BorderWidth = 1
SpecialEffect = 2
BackColor = 192,192,192
alias =
filtro =
mensagem =
fldesc =
mform =
order =
sepwidth = 20
txtwidth = 48
fonte = 8
orderfld =
_memcodi =
_oldalias =
_oldorder =
_oldfilter =
_ret =
_forca = .F.
_memdesc =
busca =
order2 =
Name = "txttabn"
    container
    container
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
local lind, lmens, lcount, linicio, lfim, lmostra
if !empty(this.parent.mensagem)
    lcount=0
    lmens=alltrim(this.parent.mensagem)
    for lind=1 to len(lmens)
        if substr(lmens,lind,1) = ";"
            lcount=lcount+1
        endif
        lind=lind+1
    endfor
    lcount=lcount+1
    dimension lmyarray[lcount,2], lexpr[lcount]
    lmyarray=""
    lexpr=""
    linicio=1
    if lcount=1
        lexpr[1]=lmens
    else
        for lind=1 to lcount
            lfim=at(";",lmens,lind)
            lexpr[lind]=iif(lind=lcount,substr(lmens,linicio),substr(lmens,linicio,lfim-linicio))
            linicio=lfim+1
        endfor
    endif
    for lind=1 to lcount
        lmyarray[lind,1]=left(lexpr[lind],at(",",lexpr[lind])-1)
        lmyarray[lind,2]=right(lexpr[lind],len(lexpr[lind])-rat(",",lexpr[lind]))
    endfor
    lmostra=""
    for lind=1 to lcount
        lmostra=lmostra+(lmyarray[lind,2])+": "+ ;
                iif(type(this.parent.alias+"."+lmyarray[lind,1])="C" ;
                ,eval(this.parent.alias+"."+lmyarray[lind,1]) ;
                ,str(eval(this.parent.alias+"."+lmyarray[lind,1])))+ ;
                iif(lind=lcount,"",chr(13))
    endfor
    wait window lmostra nowait
endif
ENDPROC
PROCEDURE ProgrammaticChange
this.parent.parent.refresh
ENDPROC
Salias Tabela
 qual o controlo est
 ligado
filtro
mensagem Indica
o dos campos da tabela e dos cabe
alhos a mostrar em janela. Ex.(field,cabe
alho;field,cabe
alho)
fldesc
mform
acnull
order Specifies the controlling index tag for a Cursor object.
sepwidth
txtwidth
fonte Tamanho da fonte
orderfld
memcodi
*assign
*mserror
    txtfiltro
PROCEDURE ProgrammaticChange
*this.parent.parent.refresh
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
local lind, lmens, lcount, linicio, lfim, lmostra
if !empty(this.parent.mensagem)
    lcount=0
    lmens=alltrim(this.parent.mensagem)
    for lind=1 to len(lmens)
        if substr(lmens,lind,1) = ";"
            lcount=lcount+1
        endif
    endfor
    lcount=lcount+1
    dimension lmyarray[lcount,2], lexpr[lcount]
    lmyarray=""
    lexpr=""
    linicio=1
    if lcount=1
        lexpr[1]=lmens
    else
        for lind=1 to lcount
            lfim=at(";",lmens,lind)
            lexpr[lind]=iif(lind=lcount,substr(lmens,linicio),substr(lmens,linicio,lfim-linicio))
            linicio=lfim+1
        endfor
    endif
    for lind=1 to lcount
        lmyarray[lind,1]=left(lexpr[lind],at(",",lexpr[lind])-1)
        lmyarray[lind,2]=right(lexpr[lind],len(lexpr[lind])-rat(",",lexpr[lind]))
    endfor
    lmostra=""
    for lind=1 to lcount
        lmostra=lmostra+(lmyarray[lind,2])+": "+ ;
                iif(type(this.parent.alias+"."+lmyarray[lind,1])="C" ;
                ,eval(this.parent.alias+"."+lmyarray[lind,1]) ;
                ,alltrim(str(eval(this.parent.alias+"."+lmyarray[lind,1]))))+ ;
                iif(lind=lcount,"",chr(13))
    endfor
    wait window lmostra nowait
endif
ENDPROC
_FORCA
THIS
LOSTFOCUSz
LCFIND
CONTROLSOURCE
XSEEK
PARENT
ALIAS
ORDER
_FORCA
LABEL1
VALUE
FLDESC
P_SCAT
ACNULL
OLD_ALIAS
OLD_ORD
MFORM
ORDERFLD
MEMCODI
_DEMENU
REFRESH
_MODE
OLD_MODE
PARENT
MEMCODI
CONTROLSOURCE-
NKEYCODE
NSHIFTALTCTRL
DBLCLICK
DblClick,
LostFocusa
KeyPress
aWidth = 123
Height = 22
BackStyle = 0
BorderWidth = 1
SpecialEffect = 2
BackColor = 192,192,192
alias =
filtro =
mensagem =
fldesc =
mform =
order =
sepwidth = 20
txtwidth = 48
fonte = 8
orderfld =
_memcodi =
_oldalias =
_oldorder =
_oldfilter =
_ret =
_forca = .F.
_memdesc =
busca =
order2 =
Name = "txttabsp"
Galias Tabela
 qual o controlo est
 ligado
filtro Express
o para filtrar os registos possiveis de seleccionar.
mensagem Indica
o dos campos da tabela e dos cabe
alhos a mostrar em janela. Ex.(field,cabe
alho;field,cabe
alho)
fldesc campo da tabela contendo o descri
o que ir
 ser visualizada em label1, no formato: ALIAS.CAMPO
mform Nome do form que
 usado para selec
o do registo. Normalmente o mesmo que
 usado p/ manuten
acnull Se .t., aceita o campo vazio. Se .f. O campo
 preenchido obrigat
riamente.
order Specifies the controlling index tag for a Cursor object.
sepwidth Comprimento da separa
o entre a text1 e a label1.
txtwidth Comprimento da caixa Text1. O restante comprimento do controlo
 preenchido com a label1.
fonte Tamanho da fonte
orderfld
_memcodi Para uso interno.
_oldalias Para uso interno.
_oldorder Para uso interno.
_oldfilter Para uso interno.
_ret Para uso interno.
_forca Para uso interno.
_memdesc
busca P/ se usado com uma express
o de busca, quando
 necess
rio buscas filtradas.
order2 Order alternativo p/ usar quando
 especificado um valor na propriedade BUSCA
*_assign Para uso interno. (Metodo usado pelo objecto p/ mostrar a label1 preenchida quando o campo text1 j
 tem valor quando
 activado o form)
*_mserror Para uso interno. (Transporta uma mensagem de erro).
*_callform
NBUTTON
NSHIFT
NXCOORD
NYCOORD
LMENS
LCOUNT
LINICIO
LMOSTRA
PARENT
MENSAGEM
LMYARRAY
LEXPR
ALIAS
MouseMove,
ProgrammaticChange
[PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode = 3
    this.dblclick
endif
ENDPROC
PROCEDURE When
this.parent._memcodi=eval(this.controlsource)
this.parent._memdesc=this.parent.label1.value
ENDPROC
PROCEDURE LostFocus
local lcfind, lcfiltro
if lastkey() # 27 or this.parent._forca
    if empty(this.parent.busca)
        if type(this.controlsource)="C"
            lcfind=alltrim(eval(this.controlsource))
        else
            lcfind=eval(this.controlsource)
        endif
    else
        lcfind=eval(this.parent.busca)
    endif
    if xseek(lcfind,(this.parent.alias),iif(empty(this.parent.busca), (this.parent.order), (this.parent.order2))) and !this.parent._forca
        this.parent.label1.value=eval(this.parent.fldesc)
    else
        this.parent.label1.value=""
        P_scat=.f.
        if this.parent.acnull
            if type(this.controlsource)="C"
                if ((this.value # "") and (this.value # "0")) or this.parent._forca
                    this.parent._callform

                    if lastkey()#27
                        this.parent._ret=(this.parent.alias)+"."+(this.parent.orderfld)
                        store eval(this.parent._ret) to (this.controlsource)
                        this.value=eval(this.controlsource)
                        this.parent.label1.value=eval(this.parent.fldesc)
                    else
                        this.value=this.parent._memcodi
                        this.parent.label1.value=this.parent._memdesc
                    endif
                    select (this.parent._oldalias)
                    set order to (this.parent._oldorder)
                endif
            else
                if this.value # 0 or this.parent._forca
                    this.parent._callform

                    if lastkey()#27
                        this.parent._ret=(this.parent.alias)+"."+(this.parent.orderfld)
                        store eval(this.parent._ret) to (this.controlsource)
                        this.value=eval(this.controlsource)
                        this.parent.label1.value=eval(this.parent.fldesc)
                    else
                        this.value=this.parent._memcodi
                        this.parent.label1.value=this.parent._memdesc
                    endif
                    select (this.parent._oldalias)
                    set order to (this.parent._oldorder)
                endif
            endif
        else
            this.parent._callform
            if lastkey()=27 and !empty(this.parent._memcodi)
                this.value=this.parent._memcodi
                this.parent.label1.value=this.parent._memdesc
            else
                this.parent._ret=(this.parent.alias)+"."+(this.parent.orderfld)
                store eval(this.parent._ret) to (this.controlsource)
                this.value=eval(this.controlsource)
                this.parent.label1.value=eval(this.parent.fldesc)
            endif
            select (this.parent._oldalias)
            set order to (this.parent._oldorder)
        endif
        this.parent.parent.refresh
    endif
    this.parent._forca=.f.
endif
ENDPROC
PROCEDURE DblClick
this.parent._forca=.t.
this.lostfocus
ENDPROC
variavel Variavel p/ filtragem. Ex: codi
alias Alias da tabela dos elementos que servir
o de filtro
retorno Express
o de filtro retornada
_retornotabela
desc Nome do campo p/ que cont
m a descri
o do elemento
titulo Titulo p/ a janela de procura
tipo_variavel Indica se a variavel de
 (N)umerica ou (A)lfabetica
expressao_ok Determina se a expressao est
 correcta
*_calltabela
frmtabela
ALIAS
CAMPORETORNO
CAMPORETORNNO
_RETORNOTABELA
FORM_TABELA
LOCKSCREEN
CALIAS
CCOLUNA1
VARIAVEL
CCOLUNA2
CAPTION
TITULO
CTIPOVARIAVEL
TIPO_VARIAVEL
HEIGHT
GRID1
REFRESH
FILTRO_MLT
VALUE
VARIAVEL
RETORNO
EXPRESSAO_OK-
NKEYCODE
NSHIFTALTCTRL
DBLCLICKg
{END}
VALUE
_RETORNOTABELA
_CALLTABELA&
VALUE
RETORNO
_calltabela,
ValidB
KeyPress
GotFocus\
DblClick
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
local lind, lmens, lcount, linicio, lfim, lmostra
if !empty(this.parent.mensagem)
    lcount=0
    lmens=alltrim(this.parent.mensagem)
    for lind=1 to len(lmens)
        if substr(lmens,lind,1) = ";"
            lcount=lcount+1
        endif
    endfor
    lcount=lcount+1
    dimension lmyarray[lcount,2], lexpr[lcount]
    lmyarray=""
    lexpr=""
    linicio=1
    if lcount=1
        lexpr[1]=lmens
    else
        for lind=1 to lcount
            lfim=at(";",lmens,lind)
            lexpr[lind]=iif(lind=lcount,substr(lmens,linicio),substr(lmens,linicio,lfim-linicio))
            linicio=lfim+1
        endfor
    endif
    for lind=1 to lcount
        lmyarray[lind,1]=left(lexpr[lind],at(",",lexpr[lind])-1)
        lmyarray[lind,2]=right(lexpr[lind],len(lexpr[lind])-rat(",",lexpr[lind]))
    endfor
    lmostra=""
    for lind=1 to lcount
        lmostra=lmostra+(lmyarray[lind,2])+": "+ ;
                iif(type(this.parent.alias+"."+lmyarray[lind,1])="C" ;
                ,eval(this.parent.alias+"."+lmyarray[lind,1]) ;
                ,alltrim(str(eval(this.parent.alias+"."+lmyarray[lind,1]))))+ ;
                iif(lind=lcount,"",chr(13))
    endfor
    wait window lmostra nowait
endif
ENDPROC
PROCEDURE ProgrammaticChange
*this.parent.parent.refresh
ENDPROC
NBUTTON
NSHIFT
NXCOORD
NYCOORD
LMENS
LCOUNT
LINICIO
LMOSTRA
PARENT
MENSAGEM
LMYARRAY
LEXPR
ALIAS
ProgrammaticChange,
MouseMove3
PROCEDURE _assign
local lcfind
if empty(this.busca)
    if type(this.text1.controlsource)="C"
        lcfind=alltrim(eval(this.text1.controlsource))
    else
        lcfind=eval(this.text1.controlsource)
    endif
    lcfind=eval(this.busca)
endif
=xseek(lcfind,(this.alias),iif(empty(this.busca), (this.order), (this.order2)))
this.text1.value=eval(this.text1.controlsource)
this.label1.value=eval(this.fldesc)
this.refresh
ENDPROC
PROCEDURE _mserror
lparameter _m
messagebox(_m+chr(13)+chr(13)+"Objecto : "+this.name+chr(13)+"Livraria: "+this.classlibrary,48,"Erro no controlo")
ENDPROC
PROCEDURE _callform
local lcfilter
this._oldalias=select()
this._oldorder=order()
select (this.alias)
if !empty(this.filtro)
    lcfilter = this.filtro
    this._oldfilter = filter()
    set filter to &lcfilter
    go top
endif
do form (this.mform) with 1
if !empty(this.filtro)
    if empty(this._oldfilter)
        set filter to
    else
        lcfilter = this._oldfilter
        set filter to &lcfilter
    endif
endif
ENDPROC
PROCEDURE Init
local _mens
this._oldalias = ""
this._oldorder = ""
this._oldfilter = ""
this._ret = ""
this._forca = .f.
this.text1.height=this.height-1
this.label1.height=this.height-1
this.sepwidth = iif(this.sepwidth < 20, 20, this.sepwidth)
this.text1.width=this.txtwidth
this.text1.fontsize=this.fonte
this.text1.top=1
this.image1.left=this.text1.left+this.text1.width+2
this.label1.top=1
this.label1.fontsize=this.fonte
this.label1.width=this.width-this.text1.width-this.sepwidth-1
this.label1.left=this.text1.width+this.sepwidth
this.label1.backcolor=this.parent.backcolor
this.bordercolor=this.parent.backcolor
this.borderwidth=0
do case
    case empty(this.alias)
        _mens="N
o definiu um alias"
        this._mserror(_mens)
    case empty(this.order)
        _mens="N
o definiu uma chave para procura"
        this._mserror(_mens)
    case empty(this.fldesc)
        _mens="N
o definiu uma descri
        this._mserror(_mens)
    case empty(this.mform)
        _mens="N
o definiu um form p/ manuten
o da tabela"
        this._mserror(_mens)
endcase
*this._assign
ENDPROC
PROCEDURE LostFocus
clear typeahead
ENDPROC
OLD_MODE
_MODE
XSEEK
TEXT1
CONTROLSOURCE
ALIAS
ORDER
VALUE
LABEL1
FLDESC
REFRESHh
Objecto :
Livraria:
Erro no controlo
CLASSLIBRARY"
OLD_ALIAS
OLD_ORDER
OLD_FILTER
OLD_MODE
_FORCA
_DEMENU
o definiu um alias
o definiu uma chave para procura
o definiu uma descri
o definiu um form p/ manuten
o da tabela
OLD_ALIAS
OLD_ORDER
OLD_FILTER
OLD_MODE
_FORCA
_DEMENU
_MENS
TEXT1
HEIGHT
LABEL1
SEPWIDTH
WIDTH
TXTWIDTH
FONTSIZE
FONTE
IMAGE1
LEFT
BACKCOLOR
PARENT
BORDERCOLOR
BORDERWIDTH
ALIAS
MSERROR
ORDER
FLDESC
MFORM
assign,
mserror
Destroy
LostFocus
Galias Tabela
 qual o controlo est
 ligado
filtro Express
o para filtrar os registos possiveis de seleccionar.
mensagem Indica
o dos campos da tabela e dos cabe
alhos a mostrar em janela. Ex.(field,cabe
alho;field,cabe
alho)
fldesc campo da tabela contendo o descri
o que ir
 ser visualizada em label1, no formato: ALIAS.CAMPO
mform Nome do form que
 usado para selec
o do registo. Normalmente o mesmo que
 usado p/ manuten
acnull Se .t., aceita o campo vazio. Se .f. O campo
 preenchido obrigat
riamente.
order Specifies the controlling index tag for a Cursor object.
sepwidth Comprimento da separa
o entre a text1 e a label1.
txtwidth Comprimento da caixa Text1. O restante comprimento do controlo
 preenchido com a label1.
fonte Tamanho da fonte
orderfld
_memcodi Para uso interno.
_oldalias Para uso interno.
_oldorder Para uso interno.
_oldfilter Para uso interno.
_ret Para uso interno.
_forca Para uso interno.
_memdesc
busca P/ se usado com uma express
o de busca, quando
 necess
rio buscas filtradas.
order2 Order alternativo p/ usar quando
 especificado um valor na propriedade BUSCA
*_assign Para uso interno. (Metodo usado pelo objecto p/ mostrar a label1 preenchida quando o campo text1 j
 tem valor quando
 activado o form)
*_mserror Para uso interno. (Transporta uma mensagem de erro).
*_callform
PARENT
_FORCA
LOSTFOCUS
set filter to &lcfilter
{end}
set filter to &lcfilter
LCFIND
LCFILTRO
PARENT
ALIAS
FILTRO
LCFILTER
_OLDFILTER
_FORCA
BUSCA
CONTROLSOURCE
XSEEK
ORDER
ORDER2
LABEL1
VALUE
FLDESC
P_SCAT
ACNULL
_CALLFORM
ORDERFLD
_MEMCODI
_MEMDESC
_OLDALIAS
_OLDORDER
REFRESH7
PARENT
_MEMCODI
CONTROLSOURCE
_MEMDESC
LABEL1
VALUE-
NKEYCODE
NSHIFTALTCTRL
DBLCLICK
DblClick,
LostFocuso
WhenE
KeyPress
LCFIND
BUSCA
TEXT1
CONTROLSOURCE
XSEEK
ALIAS
ORDER
ORDER2
VALUE
LABEL1
FLDESCh
Objecto :
Livraria:
Erro no controlo
CLASSLIBRARY<
LCFILTER
THIS
_OLDALIAS
_OLDORDER
MFORM
_ASSIGN
o definiu um alias
o definiu uma chave para procura
o definiu uma descri
o definiu um form p/ manuten
o da tabela
_MENS
THIS
_OLDALIAS
_OLDORDER
_OLDFILTER
_FORCA
TEXT1
HEIGHT
LABEL1
SEPWIDTH
WIDTH
TXTWIDTH
FONTSIZE
FONTE
IMAGE1
LEFT
BACKCOLOR
PARENT
BORDERCOLOR
BORDERWIDTH
ALIAS
_MSERROR
ORDER
FLDESC
MFORM
_ASSIGN
_assign,
_mserror
_callform.
Refresh
LostFocus
NKEYCODE
NSHIFTALTCTRL
DBLCLICK7
PARENT
_MEMCODI
CONTROLSOURCE
_MEMDESC
LABEL1
VALUE
LCFIND
LCFILTRO
PARENT
_FORCA
BUSCA
CONTROLSOURCE
XSEEK
ALIAS
ORDER
ORDER2
LABEL1
VALUE
FLDESC
P_SCAT
ACNULL
_CALLFORM
ORDERFLD
_MEMCODI
_MEMDESC
_OLDALIAS
_OLDORDER
REFRESH
PARENT
_FORCA
LOSTFOCUS
KeyPress,
LostFocus
DblClick
PROCEDURE _calltabela
if !empty(this.alias)
    public camporetorno
    camporetornno = ".t."
    this._retornotabela = ""
    form_tabela = createobject("frmtabela")
    form_tabela.lockscreen = .t.
    form_tabela.calias = this.alias
    form_tabela.ccoluna1 = this.variavel
    form_tabela.ccoluna2 = this.desc
    form_tabela.caption = this.titulo
    form_tabela.cTipoVariavel = this.tipo_variavel
    form_tabela.top = this.top + this.height + 30
    form_tabela.left = this.left
    form_tabela.grid1.refresh
    form_tabela.lockscreen = .f.
    form_tabela.show
    release form_tabela
    this._retornotabela = camporetorno
    release camporetorno
endif
ENDPROC
PROCEDURE Valid
if filtro_mlt("chk", this.value, this.variavel, .t.)
    this.retorno = filtro_mlt("bld", this.value, this.variavel)
    this.expressao_ok = .t.
    this.retorno = ".f."
    this.expressao_ok = .f.
endif
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode = 3
    this.dblclick
endif
ENDPROC
PROCEDURE GotFocus
this.value = alltrim(this.value) + iif(empty(this._retornotabela), "", this._retornotabela)
this._retornotabela = ""
if !empty(this.value)
    keyboard "{END}"
endif
ENDPROC
PROCEDURE DblClick
this._calltabela
ENDPROC
PROCEDURE Init
this.value = ""
this.retorno = ".t."
ENDPROC
JPROCEDURE DblClick
this.parent._forca=.t.
this.lostfocus
ENDPROC
PROCEDURE LostFocus
local lcfind, lcfiltro
select (this.parent.alias)
if !empty(this.parent.filtro)
    lcfilter = this.parent.filtro
    this.parent._oldfilter = filter()
    set filter to &lcfilter
    go top
endif
if lastkey() # 27 or this.parent._forca
    if empty(this.parent.busca)
        if type(this.controlsource)="C"
            lcfind=alltrim(eval(this.controlsource))
        else
            lcfind=eval(this.controlsource)
        endif
    else
        lcfind=eval(this.parent.busca)
    endif
    if xseek(lcfind,(this.parent.alias),iif(empty(this.parent.busca), (this.parent.order), (this.parent.order2))) and !this.parent._forca
        this.parent.label1.value=eval(this.parent.fldesc)
    else
        this.parent.label1.value=""
        P_scat=.f.
        if this.parent.acnull
            if type(this.controlsource)="C"
                if ((this.value # "") and (this.value # "0")) or this.parent._forca
                    this.parent._callform

                    if lastkey()#27
                        this.parent._ret=(this.parent.alias)+"."+(this.parent.orderfld)
                        store eval(this.parent._ret) to (this.controlsource)
                        this.value=eval(this.controlsource)
                        this.parent.label1.value=eval(this.parent.fldesc)
                    else

                        this.value=this.parent._memcodi
                        this.parent.label1.value=this.parent._memdesc
                    endif
                    select (this.parent._oldalias)
                    set order to (this.parent._oldorder)
                endif
            else
                if this.value # 0 or this.parent._forca
                    this.parent._callform

                    if lastkey()#27
                        *wait window "apos chamar o form <> 27" timeout 2
                        this.parent._ret=(this.parent.alias)+"."+(this.parent.orderfld)
                        store eval(this.parent._ret) to (this.controlsource)
                        this.value=eval(this.controlsource)
                        this.parent.label1.value=eval(this.parent.fldesc)
                    else
                        *wait window "apos chamar o form = 27" timeout 2
                        this.value=this.parent._memcodi
                        this.parent.label1.value=this.parent._memdesc
                        keyboard '{end}'
                    endif
                    select (this.parent._oldalias)
                    set order to (this.parent._oldorder)
                endif
            endif
        else
            this.parent._callform
            if lastkey()=27 and !empty(this.parent._memcodi)
                this.value=this.parent._memcodi
                this.parent.label1.value=this.parent._memdesc
            else
                this.parent._ret=(this.parent.alias)+"."+(this.parent.orderfld)
                store eval(this.parent._ret) to (this.controlsource)
                this.value=eval(this.controlsource)
                this.parent.label1.value=eval(this.parent.fldesc)
            endif
            select (this.parent._oldalias)
            set order to (this.parent._oldorder)
        endif
        this.parent.parent.refresh
    endif
    this.parent._forca=.f.
endif
if !empty(this.parent.filtro)
    if empty(this.parent._oldfilter)
        set filter to
    else
        lcfilter = this.parent._oldfilter
        set filter to &lcfilter
    endif
endif
ENDPROC
PROCEDURE When
this.parent._memcodi=eval(this.controlsource)
this.parent._memdesc=this.parent.label1.value
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode = 3
    this.dblclick
endif
ENDPROC
PROCEDURE DblClick
_forca=.t.
this.lostfocus
ENDPROC
PROCEDURE LostFocus
local lcfind
if type(this.controlsource)="C"
    lcfind=alltrim(eval(this.controlsource))
    lcfind=eval(this.controlsource)
endif
if xseek(lcfind,(this.parent.alias),(this.parent.order)) and !_forca
    this.parent.label1.value=eval(this.parent.fldesc)
    this.parent.label1.value=""
    P_scat=.f.
    if this.parent.acnull
        if type(this.controlsource)="C"
            if ((this.value # "") and (this.value # "0")) or _forca
                old_alias=select()
                old_ord=order()
                select (this.parent.alias)
                do form (this.parent.mform) with 1
                if lastkey()#27
                    _ret=(this.parent.alias)+"."+(this.parent.orderfld)
                    store eval(_ret) to (this.controlsource)
                    this.value=eval(this.controlsource)
                    this.parent.label1.value=eval(this.parent.fldesc)
                else
                    this.value=this.parent.memcodi
                endif
                select (old_alias)
                set order to (old_ord)
            endif
        else
            if this.value # 0 or _forca
                old_alias=select()
                old_ord=order()
                select (this.parent.alias)
                do form (this.parent.mform) with 1
                if lastkey()#27
                    _ret=(this.parent.alias)+"."+(this.parent.orderfld)
                    store eval(_ret) to (this.controlsource)
                    this.value=eval(this.controlsource)
                    this.parent.label1.value=eval(this.parent.fldesc)
                else
                    this.value=this.parent.memcodi
                endif
                select (old_alias)
                set order to (old_ord)
            endif
        endif
    else
        old_alias=select()
        old_ord=order()
        select (this.parent.alias)
        do form (this.parent.mform) with 1
        if lastkey()=27 and !empty(this.parent.memcodi)
            this.value=this.parent.memcodi
        else
            _ret=(this.parent.alias)+"."+(this.parent.orderfld)
            store eval(_ret) to (this.controlsource)
            this.value=eval(this.controlsource)
            this.parent.label1.value=eval(this.parent.fldesc)
        endif
        select (old_alias)
        set order to (old_ord)
    endif
    _demenu=.t.
    this.parent.parent.refresh
endif
_forca=.f.
_mode=old_mode
ENDPROC
PROCEDURE When
this.parent.memcodi=eval(this.controlsource)
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode = 3
    this.dblclick
endif
ENDPROC
zPROCEDURE assign
old_mode=_mode
=xseek(eval(this.text1.controlsource),(this.alias),(this.order))
this.text1.value=eval(this.text1.controlsource)
this.label1.value=eval(this.fldesc)
this.refresh
ENDPROC
PROCEDURE mserror
lparameter _m
messagebox(_m+chr(13)+chr(13)+"Objecto : "+this.name+chr(13)+"Livraria: "+this.classlibrary,48,"Erro no controlo")
ENDPROC
PROCEDURE Destroy
release old_alias, old_order, old_filter, old_mode, _ret, _forca, _demenu
ENDPROC
PROCEDURE LostFocus
clear typeahead
ENDPROC
PROCEDURE Init
public old_alias, old_order, old_filter, old_mode, _ret, _forca, _demenu
local _mens
old_mode=""
old_alias=""
old_order=""
old_filter=""
_ret=""
_forca=.f.
this.text1.height=this.height-2
this.label1.height=this.height-2
this.sepwidth = iif(this.sepwidth < 20, 20, this.sepwidth)
this.text1.width=this.txtwidth
this.text1.fontsize=this.fonte
this.text1.top=1
this.image1.left=this.text1.left+this.text1.width+2
this.label1.top=1
this.label1.fontsize=this.fonte
this.label1.width=this.width-this.text1.width-this.sepwidth-1
this.label1.left=this.text1.width+this.sepwidth
this.label1.backcolor=this.parent.backcolor
this.bordercolor=this.parent.backcolor
this.borderwidth=0
do case
    case empty(this.alias)
        _mens="N
o definiu um alias"
        this.mserror(_mens)
    case empty(this.order)
        _mens="N
o definiu uma chave para procura"
        this.mserror(_mens)
    case empty(this.fldesc)
        _mens="N
o definiu uma descri
        this.mserror(_mens)
    case empty(this.mform)
        _mens="N
o definiu um form p/ manuten
o da tabela"
        this.mserror(_mens)
endcase
ENDPROC
LCFIND
BUSCA
TEXT1
CONTROLSOURCE
XSEEK
ALIAS
ORDER
ORDER2
VALUE
LABEL1
FLDESC
REFRESHh
Objecto :
Livraria:
Erro no controlo
CLASSLIBRARY
set filter to &lcfilter
set filter to &lcfilter
LCFILTER
THIS
_OLDALIAS
_OLDORDER
ALIAS
FILTRO
_OLDFILTER
MFORM
o definiu um alias
o definiu uma chave para procura
o definiu uma descri
o definiu um form p/ manuten
o da tabela
_MENS
THIS
_OLDALIAS
_OLDORDER
_OLDFILTER
_FORCA
TEXT1
HEIGHT
LABEL1
SEPWIDTH
WIDTH
TXTWIDTH
FONTSIZE
FONTE
IMAGE1
LEFT
BACKCOLOR
PARENT
BORDERCOLOR
BORDERWIDTH
ALIAS
_MSERROR
ORDER
FLDESC
MFORM
_assign,
_mserror
_callform
Inito
LostFocusr
    SPROCEDURE _assign
local lcfind
if empty(this.busca)
    if type(this.text1.controlsource)="C"
        lcfind=alltrim(eval(this.text1.controlsource))
    else
        lcfind=eval(this.text1.controlsource)
    endif
    lcfind=eval(this.busca)
endif
if xseek(lcfind,(this.alias),iif(empty(this.busca), (this.order), (this.order2)))
    this.text1.value=eval(this.text1.controlsource)
    this.label1.value=eval(this.fldesc)
    this.label1.value=""
endif
*this.refresh
ENDPROC
PROCEDURE _mserror
lparameter _m
messagebox(_m+chr(13)+chr(13)+"Objecto : "+this.name+chr(13)+"Livraria: "+this.classlibrary,48,"Erro no controlo")
ENDPROC
PROCEDURE _callform
local lcfilter
this._oldalias=select()
this._oldorder=order()
*!*    select (this.alias)
*!*    if !empty(this.filtro)
*!*        lcfilter = this.filtro
*!*        this._oldfilter = filter()
*!*        set filter to &lcfilter
*!*        go top
*!*    endif
*clear typeahead
do form (this.mform) with 1
*wait window str(lastkey()) timeout 2
*!*    if !empty(this.filtro)
*!*        if empty(this._oldfilter)
*!*            set filter to
*!*        else
*!*            lcfilter = this._oldfilter
*!*            set filter to &lcfilter
*!*        endif
*!*    endif
ENDPROC
PROCEDURE Refresh
this._assign
ENDPROC
PROCEDURE LostFocus
clear typeahead
ENDPROC
PROCEDURE Init
local _mens
this._oldalias = ""
this._oldorder = ""
this._oldfilter = ""
this._ret = ""
this._forca = .f.
this.text1.height=this.height-1
this.label1.height=this.height-1
this.sepwidth = iif(this.sepwidth < 20, 20, this.sepwidth)
this.text1.width=this.txtwidth
this.text1.fontsize=this.fonte
this.text1.top=1
this.image1.left=this.text1.left+this.text1.width+2
this.label1.top=1
this.label1.fontsize=this.fonte
this.label1.width=this.width-this.text1.width-this.sepwidth-1
this.label1.left=this.text1.width+this.sepwidth
this.label1.backcolor=this.parent.backcolor
this.bordercolor=this.parent.backcolor
this.borderwidth=0
do case
    case empty(this.alias)
        _mens="N
o definiu um alias"
        this._mserror(_mens)
    case empty(this.order)
        _mens="N
o definiu uma chave para procura"
        this._mserror(_mens)
    case empty(this.fldesc)
        _mens="N
o definiu uma descri
        this._mserror(_mens)
    case empty(this.mform)
        _mens="N
o definiu um form p/ manuten
o da tabela"
        this._mserror(_mens)
endcase
this._assign
ENDPROC
GIF89a
m$&w&'y-0z0/}35t=Cw@F
=cF|,Y"N_
!4#/C
 [5lq
N#<Q2R|
=iIw0T
C/iIk
)0%UB4
5XsuWw
&z`p8
AS'Oa8O)
xt@4D
N~DO!6f
E^OIb
DR(E6
^eU^g
^(g^1
2Gsww{w 5
r fnf
Kn;[>t
n`vgw
0Am*(
BN0P?
Fo:]U
iDO*F
Qo]+C
bughN
;\#.QF
|(:3:
o}A    ,
_@[f8
C8dBv
eEVfuVd
jEUOU
mYvEY
c8Va/$D
FVd>&
fqVQ!
f[Fhs
8gpCO
?{vw{
DIujI
C"odA`
<WE;8
%jG4)d
d}q*8
'p@/.s
\x3,^
}(D#*
GIF89a
.m"-p!5k):i27v*;x2Cm9Cu:GnAKwDRyJ[}Ua
=h`Bv&
XBJ)^
.Q7[$
}    1S[
k$^k<[
lcDqM
e2M0Q
8`~]u
%,!FK
)!JD"
g)S9J
[nQqa
Dd'OxJs
WiJcsd
-    dO@
;GIF89a
,W0Op
G5l< <Q
Iu:[%
MqD?
nFC{[
*F+0*
GxBp_
3f.~-
5, te
<j3'Z
whv7n
; bQg
hw'~{Xtk
YF0 50
DyReJ
*B=6E
:$r7u
[R(:MD
kJ<0Y%
u+M7$5~$(
e8!TH
(He ?
B,_0O
EmiS{
n5]Gd
;HKtJL
Loq?8
36`3N
leC)V
@&d6.
%.e%FeR&b
TWu,Os
t9gr/O
u&?ySWy
7}p'}[
lf2Jtg
HgwVm
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _3NY0V58NH1099658235
 WINDOWS _3NY0VVFNB1144944004
 WINDOWS _3NY0V58NI1144944004i
 WINDOWS _3NZ0W1B771143442788e
 WINDOWS _3NZ0W1B4I1133674694
 WINDOWS _3NZ0W1B4H1133149841
 WINDOWS _3NY0V58NH1131699748`
 WINDOWS _3NY0V58NJ1143442788
 WINDOWS _3NY0V58NH1133674124
 WINDOWS _3NY0W7Z401143501834
 WINDOWS _3NY0XVF4K1143442788z$
 WINDOWS _3NY0V58NH11434427885)
 WINDOWS _3NY0Z3AUZ1143442788
 WINDOWS _3NY0V58NH1133674124
 WINDOWS _3NZ0W1B4K1133674124,5
 WINDOWS _3NZ0W1B4L113367412416
 WINDOWS _3NZ0W1B4M113367412427
 WINDOWS _3NZ0W1B4N1133674124
 WINDOWS _3NZ0W1B4O1133674124$;
 WINDOWS _3NZ0W1B4P1133674124
 WINDOWS _3NZ0W1B4Q1133674124
 WINDOWS _3NZ0W1B4R1133674124gC
 WINDOWS _3NY0V58NH1133674124pD
 WINDOWS _3NY0V58NH1133674694uE
 WINDOWS _3NY0VVFNB1133674694QF
 WINDOWS _3NY0V58NI1133674694.G
 WINDOWS _3NY12802I1133674124
 WINDOWS _3NZ0W1B4X1133674694
 WINDOWS _3NZ0W1B4Y1133674694
 WINDOWS _3NZ0W1B4Z1133674694
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3NY0V58NJ1133674694
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3NY0W7Z401133674124
 WINDOWS _3NY0XVF4K1133674694
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3NY0Z3AUZ1133674694iQ
 WINDOWS _3NZ0W1B4H1133674124HR
 WINDOWS _3NY0V58NH1133674694CS
 WINDOWS _3NZ0W1B591133674694
 WINDOWS _3NZ0W1B5A1133674694
 WINDOWS _3NZ0W1B5B1133674124
 WINDOWS _3NZ0W1B5C1133674694
 WINDOWS _3NZ0W1B5D1133674694
 WINDOWS _3NZ0W1B5E1133674694aX
 WINDOWS _3NZ0W1B5G11336746945Y
 WINDOWS _3NZ0W1B5H1133674694
 WINDOWS _3NZ0W1B5I1133674694
 WINDOWS _3NZ0W1B5K1133674694
 WINDOWS _3NZ0W1B5L1133674694
 WINDOWS _3NZ0W1B5M1133674694
 WINDOWS _3NZ0W1B5N1133674694d^
 WINDOWS _3NY0V58NH1133674694F_
 WINDOWS _3NZ0W1B4I1133674694)`
 WINDOWS _3NZ0W1B4J1133674694
 WINDOWS _3NZ0W1B4K1133674694
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3NZ0W1B4M1133674694
 WINDOWS _3NZ0W1B4N1133674694
 WINDOWS _3NZ0W1B4O1133674694me
 WINDOWS _3NZ0W1B4P1133674694Lf
 WINDOWS _3NZ0W1B4Q1133674694+g
 WINDOWS _3NZ0W1B4R1133674694
 WINDOWS _3NZ0W1B4S1133674694
 WINDOWS _3NZ0W1B4T1133674694
 WINDOWS _3NZ0W1B4U1133674124
 WINDOWS _3NZ0W1B4V1133674124
 WINDOWS _3NZ0W1B4W1133674124
 WINDOWS _3NZ0W1B4X1133674124
 WINDOWS _3NZ0W1B4Y1133674694
 WINDOWS _3NZ0W1B4Z1133674694uo
 WINDOWS _3NZ0W1B501133674694Tp
 WINDOWS _3NZ0W1B5111336746943q
 WINDOWS _3NZ0W1B521133674694
 WINDOWS _3NZ0W1B531133674694
 WINDOWS _3NZ0W1B541133674694
 WINDOWS _3NZ0W1B551133674694
 WINDOWS _3NZ0W1B561133674694
 WINDOWS _3NZ0W1B571133674694mv
 WINDOWS _3NY0V58NH1133674694Lw
 WINDOWS _3NZ0W1B591133674694-x
 WINDOWS _3NZ0W1B5A1133674124
 WINDOWS _3NZ0W1B5B1133674124
 WINDOWS _3NZ0W1B5C1133674124
 WINDOWS _3NZ0W1B5D1133674124
 WINDOWS _3NZ0W1B5E1133674694
 WINDOWS _3NZ0W1B5F1133674694
 WINDOWS _3NZ0W1B5G1133674694
 WINDOWS _3NZ0W1B5H1133674694
 WINDOWS _3NZ0W1B5I1133674694
 WINDOWS _3NZ0W1B5J1133674694i
 WINDOWS _3NZ0W1B5K1133674694J
 WINDOWS _3NZ0W1B5L1133674694+
 WINDOWS _3NZ0W1B5M1133674694
 WINDOWS _3NZ0W1B5N1133674694
 WINDOWS _3NZ0W1B5O1133674694
 WINDOWS _3NZ0W1B5P1133674694
 WINDOWS _3NZ0W1B5Q1133674124
 WINDOWS _3NZ0W1B5R1133674124
 WINDOWS _3NZ0W1B5S1133674124
 WINDOWS _3NZ0W1B5T1133674124
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3NZ0W1B7311336746940
 WINDOWS _3NZ0W1B781133674694
 WINDOWS _3NZ0W1B7D1133674694
 WINDOWS _3NZ0W1B7E1133674694
 WINDOWS _3NZ0W1B7F1133674694
 WINDOWS _3NZ0W1B7O1133674694
 WINDOWS _3NZ0W1B7P1133674694
 WINDOWS _3NZ0W1B7Q1133674694
 WINDOWS _3NZ0W1B7S1133674694
 WINDOWS _3NZ0W1B7T1133674694z
 WINDOWS _3NZ0W1B7U1133674694`
 WINDOWS _3NZ0W1B7W1133674694D
 WINDOWS _3NZ0W1B7X1133674694
 WINDOWS _3NZ0W1B7Y1133674694
 WINDOWS _3NZ0W1B801133674694
 WINDOWS _3NZ0W1B811133674694
 WINDOWS _3NZ0W1B821133674694
 WINDOWS _3NZ0W1B831133674694
 WINDOWS _3NY0V58NH1143442788z
 WINDOWS _3NZ0W1B9I1133674694^
 WINDOWS _3NZ0W1B9J1133674694
 WINDOWS _3NZ0W1B9K1133674694
 WINDOWS _3NZ0W1B9L1133674694X
 WINDOWS _3NZ0W1B9M1133674694
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3NZ0WH6A51133674694
 WINDOWS _3O0117SGQ1133674694
 WINDOWS _3O0117SGR1133674694x
 WINDOWS _3O0117SGS1133674694X
 WINDOWS _3O0117SGT11434423408
 WINDOWS _3O0117SGU11336746946
 WINDOWS _3O0117SGV1133674694
 WINDOWS _3O0117SGW1133674694
 WINDOWS _3O0117SGX1143442340
 WINDOWS _3O0117SGY1133674694
 WINDOWS _3O0117SGZ1133674694
 WINDOWS _3O0117SH01133674694
 WINDOWS _3O0117SH11143442340t
 WINDOWS _3O0117SH21133674694r
 WINDOWS _3O0117SH31133674694Q
 WINDOWS _3O0117SH41133674694>
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3O0117SH61133674694
 WINDOWS _3O0117SH71133674694
 WINDOWS _3O0117SH81133674694
 WINDOWS _3O0117SH91133674694
 WINDOWS _3O0117SHA1133674694|
 WINDOWS _3O0117SHB1133674694\
 WINDOWS _3O0117SHC1133674694<
 WINDOWS _3O0117SHD1133674694
 WINDOWS _3O0117SHE1143442788
 WINDOWS _3O0117SHF1143442788
 WINDOWS _3O0117SHG1143442788
 WINDOWS _3O0117SHH1143442788
 WINDOWS _3O0117SHI1133674694
 WINDOWS _3O0117SHJ1133674694
 WINDOWS _3O0117SHK1133674694
 WINDOWS _3O0117SHL1133674694
 WINDOWS _3O0117SHM1133674694t
 WINDOWS _3O0117SHN1133674694T
 WINDOWS _3O0117SHO11336746944
 WINDOWS _3O0117SHP1133674694
 WINDOWS _3O0117SHQ1133674694
 WINDOWS _3O0117SHR1133674694
 WINDOWS _3O0117SHS1133674694
 WINDOWS _3O0117SHT1133674694
 WINDOWS _3O0117SHU1143442788t
 WINDOWS _3O0117SHV1143442788r
 WINDOWS _3O0117SHW1143442788p
 WINDOWS _3O0117SHX1143442788n
 WINDOWS _3O0117SHY1133674694l
 WINDOWS _3O0117SHZ1133674694L
 WINDOWS _3O0117SI01133674694,
 WINDOWS _3O0117SI11133674694
 WINDOWS _3O0117SI21133674694
 WINDOWS _3O0117SI31133674694
 WINDOWS _3O0117SI41133674694
 WINDOWS _3O0117SI51133674694
 WINDOWS _3O0117SI61133674694l
 WINDOWS _3O0117SI71133674694L
 WINDOWS _3O0117SI81133674694,
 WINDOWS _3O0117SI91133674694
 WINDOWS _3O0117SIA1143442788
 WINDOWS _3O0117SIB1143442788
 WINDOWS _3O0117SIC1143442788
 WINDOWS _3O0117SID1143442788
 WINDOWS _3O011EPOW1143442788
 WINDOWS _3NY0V58NH1133674124
 WINDOWS _3WB0P4VDJ1133674694
 WINDOWS _3NY0V58NH1133674124
 WINDOWS _3WD0PO1DV1133674124
 WINDOWS _3NY0VVFNB1133674124
 WINDOWS _3NY0V58NH1133674124
 WINDOWS _3X710N27Q1133149841
 WINDOWS _3NY0V58NH1133674694a
 WINDOWS _3NY0V58NH1133674694
 WINDOWS _3NZ0W1B741133674694
 WINDOWS _3NY0V58NH1133674694^
 WINDOWS _3NY0VVFNB1133674694;C
 WINDOWS _3XJ0PBY2X1143442340
 WINDOWS _3NY0V58NH1131699950
 WINDOWS _3NY0V58NH1133674124
 WINDOWS _3XJ0PV3L31133674694
 WINDOWS _3NY0V58NH1144944005
 WINDOWS _3NY0VVFNB1144944005
 WINDOWS _3YB0Y0RDR1133674196
 WINDOWS _3YB0Y0RDS1133674124
 WINDOWS _3YB0YII1I1144944005
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
cursor
cursor
CURSOR1
Dataenvironment
OAlias = "wparam"
CursorSource = ..\dados\comuns\wparam.dbf
Name = "CURSOR1"
IMPORTSAFT1
Top = 1
Left = 2
Height = 596
Width = 843
ScrollBars = 0
DoCreate = .T.
Caption = "Configura
o para importa
o SAFT (vendas)"
ControlBox = .F.
Name = "IMPORTSAFT1"
PROCEDURE limpa
STORE SPACE(16) TO Saft_cn, Saft_ci, Saft_co, Saft_cc, Saft_ftdesc, Saft_ncdesc, Saft_fsdesc, Saft_frdesc, Saft_nddesc, Saft_fs
Saft_contafs = 0
Saft_rfsp = 0
Saft_rfe = 0
Saft_tiporeg = 0
FOR tipo_doc=1 TO 2
        FOR tipo_mercado=1 TO 3
            FOR tipo_venda=1 TO 4
                FOR tipo_iva=1 TO 5
                    nome_var = "Saft_"+ALLTRIM(STR(tipo_doc))+ALLTRIM(STR(tipo_mercado))+ALLTRIM(STR(tipo_venda))+ALLTRIM(STR(tipo_iva))

                    STORE SPACE(16) TO &nome_var
                NEXT tipo_iva
            next tipo_venda
        NEXT tipo_mercado
NEXT tipo_doc
Thisform.Refresh
ENDPROC
PROCEDURE valida_conta
LPARAMETERS _conta
LOCAL lcconta, lbret, lcchar
lcconta = UPPER(ALLTRIM(_conta))
lbret = .t.
lcchar = ""
IF thisform.valida_conta_composicao(lcconta)
    FOR lnind = 1 TO LEN(lcconta)
        lcchar = SUBSTR(lcconta, lnind, 1)
        IF !(lcchar $ "0123456789?CN")
            lbret = .f.
            EXIT
        ENDIF
    ENDFOR
    lbret = .f.
ENDIF
RETURN lbret
ENDPROC
PROCEDURE valida_conta_composicao
LPARAMETERS _conta
LOCAL lbret, lntotal
lbret = .t.
lntotal = 0
lntotal = lntotal + IIF(AT("C", _conta) > 0, 1, 0)
lntotal = lntotal + IIF(AT("N", _conta) > 0, 1, 0)
lntotal = lntotal + IIF(AT("?", _conta) > 0, 1, 0)
IF lntotal > 1
    lbret = .f.
ENDIF
RETURN lbret
ENDPROC
PROCEDURE Unload
DO clear_relations
ENDPROC
PROCEDURE Init
SELECT parm
set filter to LEFT(parm.chave,1)="\"
GO top
PUBLIC Saft_cn, Saft_ci, Saft_co, Saft_cc, Saft_ftdesc, Saft_ncdesc, Saft_fsdesc, Saft_frdesc, Saft_nddesc, Saft_fs, Saft_contafs, ;
       Saft_rfsp, Saft_rfe, Saft_tiporeg
STORE SPACE(16) TO Saft_cn, Saft_ci, Saft_co, Saft_cc, Saft_ftdesc, Saft_ncdesc, Saft_fsdesc, Saft_frdesc, Saft_nddesc, Saft_fs
Saft_contafs = 0
Saft_rfsp = 0
Saft_rfe = 0
Saft_tiporeg = 0
FOR tipo_doc=1 TO 2
        FOR tipo_mercado=1 TO 3
            FOR tipo_venda=1 TO 4
                FOR tipo_iva=1 TO 5
                    nome_var = "Saft_"+ALLTRIM(STR(tipo_doc))+ALLTRIM(STR(tipo_mercado))+ALLTRIM(STR(tipo_venda))+ALLTRIM(STR(tipo_iva))
                    PUBLIC &nome_var
                    STORE SPACE(16) TO &nome_var
                NEXT tipo_iva
            next tipo_venda
        NEXT tipo_mercado
NEXT tipo_doc
thisform.check1.InteractiveChange
ENDPROC
THISFORM
TEXT107
ENABLED
VALUE
InteractiveChange,
Conta mal definida!
VALUE
PARENT
TEXT4
THISFORM
IMGCROSS
VISIBLE
VALIDA_CONTA
Valid,
saft_*
Modelo gravado
Escolha um modelo
THISFORM
COMBO1
VALUE
UPD_PARMS
Click,
Conta mal definida!
VALUE
PARENT
TEXT1
THISFORM
IMGCROSS
VISIBLE
Valid,
Conta mal definida!
VALUE
THISFORM
VALIDA_CONTA
Valid,
THISFORM
RELEASE
Click,
IMPORTSAFT1
Label33
label
label
IMPORTSAFT1
4*limpa
*valida_conta
*valida_conta_composicao
shape
shape
Shape24
IMPORTSAFT1
gTop = 362
Left = -1
Height = 158
Width = 847
BorderStyle = 1
SpecialEffect = 0
Name = "Shape24"
shape
shape
Shape3
IMPORTSAFT1
fTop = 175
Left = -1
Height = 159
Width = 847
BorderStyle = 1
SpecialEffect = 0
Name = "Shape3"
shape
shape
Shape4
IMPORTSAFT1
dTop = 39
Left = -2
Height = 82
Width = 847
BorderStyle = 1
SpecialEffect = 0
Name = "Shape4"
shape
shape
Shape1
IMPORTSAFT1
cTop = 0
Left = -2
Height = 40
Width = 847
BorderStyle = 1
SpecialEffect = 0
Name = "Shape1"
commandbutton
commandbutton
Command1
IMPORTSAFT1
DragIcon =
Top = 563
Left = 748
Height = 27
Width = 84
FontSize = 8
Cancel = .T.
Caption = "\<Sair"
TabIndex = 183
Name = "Command1"
.PROCEDURE Click
thisform.Release
ENDPROC
cArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
Arial, 3, 8, 5, 13, 11, 21, 2, 0
Label32
label
label
IMPORTSAFT1
Text108
textbox
textbox
label
label
Label1
IMPORTSAFT1
AutoSize = .T.
Comment = ""
DragIcon =
FontBold = .T.
FontItalic = .T.
Caption = "Modelo de configura
Height = 17
Left = 11
Top = 11
Width = 139
TabIndex = 1
Name = "Label1"
combobox
combobox
Combo1
IMPORTSAFT1
DragIcon =
MaxLength = 14
RowSourceType = 6
RowSource = "parm.chave"
ControlSource = ""
Height = 22
Left = 174
Sorted = .F.
TabIndex = 2
Top = 8
Width = 168
Name = "Combo1"
PROCEDURE InteractiveChange
IF !EMPTY(this.value)
    STORE SPACE(16) TO Saft_cn, Saft_ci, Saft_co, Saft_cc, Saft_ftdesc, Saft_ncdesc, Saft_fsdesc, Saft_frdesc, Saft_nddesc, Saft_fs
    Saft_contafs = 0
    Saft_rfsp = 0
    Saft_rfe = 0
    Saft_tiporeg = 0
    FOR tipo_doc=1 TO 2
            FOR tipo_mercado=1 TO 3
                FOR tipo_venda=1 TO 4
                    FOR tipo_iva=1 TO 5

                        nome_var = "Saft_"+ALLTRIM(STR(tipo_doc))+ALLTRIM(STR(tipo_mercado))+ALLTRIM(STR(tipo_venda))+ALLTRIM(STR(tipo_iva))

                        STORE SPACE(16) TO &nome_var
                    NEXT tipo_iva
                next tipo_venda
            NEXT tipo_mercado
    NEXT tipo_doc
    set_parms(ALLTRIM(this.Value))
    thisform.Refresh
    =MESSAGEBOX("Escolha um modelo da lista ou insira um novo",0+64,"")
ENDIF
thisform.check1.InteractiveChange
thisform.text1.Valid
ENDPROC
PROCEDURE Valid
ENDPROC
Conta mal definida!
VALUE
THISFORM
VALIDA_CONTA
Valid,
Conta mal definida!
VALUE
PARENT
TEXT4
THISFORM
IMGCROSS
VISIBLE
VALIDA_CONTA
Valid,
FontSize = 8
BackStyle = 0
Caption = "Conta
nica p/       e"
Height = 17
Left = 34
Top = 96
Width = 103
Name = "Label33"
IMPORTSAFT1
commandbutton
commandbutton
Command2
IMPORTSAFT1
DragIcon =
Top = 563
Left = 100
Height = 27
Width = 84
FontSize = 8
Caption = "Novo modelo"
TabIndex = 185
Name = "Command2"
PROCEDURE Click
novomodelo=LEFT(INPUTBOX("Nome do Novo modelo","",SPACE(14)),14)
IF !EMPTY(novomodelo)
    upd_parms("\"+alltrim(novomodelo),"SAFT_*")
    =SEEK(novomodelo,"parm","key_1")
    thisform.combo1.controlsource="parm.chave"
    thisform.combo1.Refresh
    thisform.combo1.controlsource=""
    thisform.combo1.setfocus
    =MESSAGEBOX("O novo modelo foi criado",0+64)
ENDIF
thisform.text1.Valid
ENDPROC
Pretende realmente apagar o modelo
Apagar Modelo
THISFORM
COMBO1
REFRESH
LIMPA
VALUE
LISTINDEX
SETFOCUS
TEXT1
VALID
Click,
Check1
checkbox
checkbox
IMPORTSAFT1
Text107
commandbutton
commandbutton
Command3
IMPORTSAFT1
tTop = 563
Left = 12
Height = 27
Width = 84
FontSize = 8
Caption = "Limpar"
TabIndex = 184
Name = "Command3"
PROCEDURE Click
IF MESSAGEBOX("Pretende realmente limpar este modelo de configura
o",4+32,"Limpar")=6
    thisform.limpa
    *upd_parms(ALLTRIM(thisform.combo1.value),"saft_*")
    thisform.Refresh
    thisform.combo1.SetFocus
Endif
thisform.text1.Valid
ENDPROC
Pretende realmente limpar este modelo de configura
Limpar
THISFORM
LIMPA
REFRESH
COMBO1
SETFOCUS
TEXT1
VALID
Click,
commandbutton
commandbutton
Command4
IMPORTSAFT1
|Top = 563
Left = 188
Height = 27
Width = 84
FontSize = 8
Caption = "Apagar modelo"
TabIndex = 186
Name = "Command4"
PROCEDURE Click
IF MESSAGEBOX("Pretende realmente apagar o modelo",4+32,"Apagar Modelo")=6
     SELECT parm
     DELETE
     thisform.combo1.Refresh
     *set_parms(ALLTRIM(thisform.combo1.Value))
     thisform.limpa
     thisform.combo1.Value=SPACE(14)
     THISFORM.COMBO1.ListIndex=1
     thisform.combo1.SetFocus
 ENDIF
  thisform.text1.Valid
ENDPROC
AutoSize = .T.
DragIcon =
FontBold = .T.
FontItalic = .T.
Caption = "FR"
Height = 17
Left = 385
Top = 152
Width = 18
TabIndex = 17
ForeColor = 255,0,0
Name = "Label32"
DragIcon =
FontSize = 8
ControlSource = "saft_frdesc"
Height = 21
Left = 404
MaxLength = 27
TabIndex = 19
Top = 150
Width = 197
Name = "Text108"
bPROCEDURE InteractiveChange
thisform.text107.Enabled = IIF(this.Value = 1, .t., .f.)
ENDPROC
textbox
textbox
Text1
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_cn"
Height = 21
Left = 174
MaxLength = 16
TabIndex = 6
Top = 68
Width = 144
Name = "Text1"
PROCEDURE Valid
IF EMPTY(this.Value) or EMPTY(this.Parent.text4.Value)
    thisform.imgcross.Visible = .f.
    IF TYPE(this.value) = "N"
        thisform.imgcross.Visible = .t.
    ELSE
        thisform.imgcross.Visible = .f.
    ENDIF
ENDIF
IF TYPE(this.Value) # "N"
    IF !thisform.valida_conta(this.Value)
        =MESSAGEBOX("Conta mal definida!", 0+48, "Aten
o...")
        RETURN .f.
    ENDIF
ENDIF
ENDPROC
Top = 95
Left = 106
Height = 15
Width = 59
FontBold = .T.
FontItalic = .T.
FontSize = 8
AutoSize = .T.
Alignment = 1
BackStyle = 0
Caption = "FS    FR"
ControlSource = "Saft_contafs"
SpecialEffect = 1
TabIndex = 187
Name = "Check1"
DragIcon =
FontSize = 8
ControlSource = "saft_fs"
Enabled = .F.
Height = 21
Left = 174
MaxLength = 16
TabIndex = 5
Top = 92
Width = 144
Name = "Text107"
textbox
textbox
IMPORTSAFT1
Label22
label
label
label
label
Label2
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .F.
FontItalic = .T.
Caption = "CONTAS DE CLIENTES"
Height = 17
Left = 11
Top = 47
Width = 135
TabIndex = 3
ForeColor = 255,0,0
Name = "Label2"
label
label
Label3
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Cliente Nacional "
Height = 16
Left = 200
Top = 51
Width = 92
TabIndex = 4
ForeColor = 0,64,128
Name = "Label3"
textbox
textbox
Text2
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_ci"
Height = 21
Left = 346
MaxLength = 16
TabIndex = 8
Top = 68
Width = 144
Name = "Text2"
PROCEDURE Valid
IF TYPE(this.Value) # "N"
    IF !thisform.valida_conta(this.Value)
        =MESSAGEBOX("Conta mal definida!", 0+48, "Aten
o...")
        RETURN .f.
    ENDIF
ENDIF
ENDPROC
AutoSize = .T.
DragIcon =
FontBold = .T.
FontItalic = .T.
Caption = "NC"
Height = 17
Left = 230
Top = 340
Width = 20
TabIndex = 15
ForeColor = 255,0,0
Name = "Label22"
IMPORTSAFT1
Label18
label
label
IMPORTSAFT1
Line1
IMPORTSAFT1
Line5
label
label
Label4
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Cliente Intracomunitario"
Height = 16
Left = 351
Top = 51
Width = 135
TabIndex = 7
ForeColor = 0,64,128
Name = "Label4"
textbox
textbox
Text3
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_co"
Height = 21
Left = 518
MaxLength = 16
TabIndex = 10
Top = 68
Width = 144
Name = "Text3"
PROCEDURE Valid
IF TYPE(this.Value) # "N"
    IF !thisform.valida_conta(this.Value)
        =MESSAGEBOX("Conta mal definida!", 0+48, "Aten
o...")
        RETURN .f.
    ENDIF
ENDIF
ENDPROC
AutoSize = .T.
DragIcon =
FontBold = .T.
FontItalic = .T.
Caption = "FT"
Height = 17
Left = 155
Top = 127
Width = 16
TabIndex = 16
ForeColor = 255,0,0
Name = "Label18"
gBorderWidth = 2
Height = 0
Left = 0
Top = 40
Width = 852
BorderColor = 0,123,183
Name = "Line1"
label
label
Label5
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Cliente Outros mercados"
Height = 16
Left = 520
Top = 51
Width = 141
TabIndex = 9
ForeColor = 0,64,128
Name = "Label5"
textbox
textbox
Text4
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_cc"
Height = 21
Left = 690
MaxLength = 16
TabIndex = 12
Top = 68
Width = 144
Name = "Text4"
PROCEDURE Valid
IF EMPTY(this.Value) or EMPTY(this.Parent.text1.Value)
    thisform.imgcross.Visible = .f.
    IF OCCURS("?", this.parent.text1.Value) = 0
        thisform.imgcross.Visible = .t.
    ELSE
        thisform.imgcross.Visible = .f.
    ENDIF
ENDIF
IF TYPE(this.Value) # "N" AND !EMPTY(this.Value)
    =MESSAGEBOX("Conta mal definida!", 0+48, "Aten
o...")
    RETURN .f.
ENDIF
ENDPROC
PROCEDURE Valid
IF EMPTY(this.Value) or EMPTY(this.Parent.text4.Value)
    thisform.imgcross.Visible = .f.
    IF TYPE(this.value) = "N"
        thisform.imgcross.Visible = .t.
    ELSE
        thisform.imgcross.Visible = .f.
    ENDIF
ENDIF
IF TYPE(this.Value) # "N"
    IF !thisform.valida_conta(this.Value)
        =MESSAGEBOX("Conta mal definida!", 0+48, "Aten
o...")
        RETURN .f.
    ENDIF
ENDIF
ENDPROC
IMPORTSAFT1
Line4
IMPORTSAFT1
Line2
label
label
Label6
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Cliente Final (Sem NIF)"
Height = 16
Left = 700
Top = 51
Width = 124
TabIndex = 11
ForeColor = 0,64,128
Name = "Label6"
label
label
Label7
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .F.
FontItalic = .T.
Caption = "CONTAS DE VENDAS"
Height = 17
Left = 11
Top = 127
Width = 125
TabIndex = 13
ForeColor = 255,0,0
Name = "Label7"
textbox
textbox
Text5
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1111"
Height = 21
Left = 65
MaxLength = 16
TabIndex = 42
Top = 219
Width = 82
Name = "Text5"
textbox
textbox
Text6
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1121"
Height = 21
Left = 147
MaxLength = 16
TabIndex = 43
Top = 219
Width = 82
Name = "Text6"
textbox
textbox
Text7
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1131"
Height = 21
Left = 229
MaxLength = 16
TabIndex = 44
Top = 219
Width = 82
Name = "Text7"
textbox
textbox
Text8
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1141"
Enabled = .F.
Height = 21
Left = 398
MaxLength = 16
TabIndex = 45
Top = 12
Visible = .F.
Width = 65
Name = "Text8"
label
label
Label8
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Mercado Nacional"
Height = 16
Left = 139
Top = 180
Width = 98
TabIndex = 24
ForeColor = 0,64,128
Name = "Label8"
label
label
Label9
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Mercado Intracomunit
Height = 16
Left = 378
Top = 180
Width = 144
TabIndex = 25
ForeColor = 0,64,128
Name = "Label9"
label
label
Label10
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Outros mercados"
Height = 16
Left = 659
Top = 180
Width = 99
TabIndex = 26
ForeColor = 0,64,128
Name = "Label10"
textbox
textbox
Text9
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1211"
Height = 21
Left = 327
MaxLength = 16
TabIndex = 62
Top = 219
Width = 82
Name = "Text9"
textbox
textbox
Text10
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1221"
Height = 21
Left = 409
MaxLength = 16
TabIndex = 63
Top = 219
Width = 82
Name = "Text10"
textbox
textbox
Text11
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1231"
Height = 21
Left = 491
MaxLength = 16
TabIndex = 64
Top = 219
Width = 82
Name = "Text11"
textbox
textbox
Text12
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1241"
Enabled = .F.
Height = 21
Left = 563
MaxLength = 16
TabIndex = 65
Top = 8
Visible = .F.
Width = 65
Name = "Text12"
textbox
textbox
Text13
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1311"
Height = 21
Left = 589
MaxLength = 16
TabIndex = 82
Top = 219
Width = 82
Name = "Text13"
textbox
textbox
Text14
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1321"
Height = 21
Left = 671
MaxLength = 16
TabIndex = 83
Top = 219
Width = 82
Name = "Text14"
textbox
textbox
Text15
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1331"
Height = 21
Left = 753
MaxLength = 16
TabIndex = 84
Top = 219
Width = 82
Name = "Text15"
textbox
textbox
Text16
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1341"
Enabled = .F.
Height = 21
Left = 714
MaxLength = 16
TabIndex = 85
Top = 9
Visible = .F.
Width = 65
Name = "Text16"
label
label
Label11
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Produtos"
Height = 16
Left = 84
Top = 197
Width = 45
TabIndex = 27
Name = "Label11"
label
label
Label12
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Servi
Height = 16
Left = 166
Top = 197
Width = 45
TabIndex = 28
Name = "Label12"
label
label
Label13
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Outras"
Height = 16
Left = 253
Top = 197
Width = 35
TabIndex = 29
Name = "Label13"
label
label
Label14
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Impostos"
Enabled = .F.
Height = 16
Left = 348
Top = 12
Visible = .F.
Width = 45
TabIndex = 30
Name = "Label14"
label
label
Label15
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Produtos"
Height = 16
Left = 346
Top = 197
Width = 45
TabIndex = 31
Name = "Label15"
label
label
Label16
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Servi
Height = 16
Left = 428
Top = 197
Width = 45
TabIndex = 32
Name = "Label16"
label
label
Label17
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Outras"
Height = 16
Left = 515
Top = 197
Width = 35
TabIndex = 33
Name = "Label17"
label
label
Label19
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Produtos"
Height = 16
Left = 608
Top = 197
Width = 45
TabIndex = 34
Name = "Label19"
label
label
Label20
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Servi
Height = 16
Left = 690
Top = 197
Width = 45
TabIndex = 35
Name = "Label20"
label
label
Label21
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Outras"
Height = 16
Left = 777
Top = 197
Width = 35
TabIndex = 36
Name = "Label21"
label
label
Label23
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Reduzido"
Height = 16
Left = 5
Top = 222
Width = 47
TabIndex = 37
Name = "Label23"
label
label
Label24
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Intermedio"
Height = 16
Left = 5
Top = 243
Width = 51
TabIndex = 38
Name = "Label24"
label
label
Label25
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Normal"
Height = 16
Left = 5
Top = 264
Width = 35
TabIndex = 39
Name = "Label25"
label
label
Label26
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Outro"
Height = 16
Left = 5
Top = 285
Width = 29
TabIndex = 40
Name = "Label26"
label
label
Label27
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Isento"
Height = 16
Left = 5
Top = 306
Width = 31
TabIndex = 41
Name = "Label27"
textbox
textbox
Text17
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1112"
Height = 21
Left = 65
MaxLength = 16
TabIndex = 46
Top = 240
Width = 82
Name = "Text17"
textbox
textbox
Text18
IMPORTSAFT1
Tag = "1113"
DragIcon =
FontSize = 8
ControlSource = "saft_1113"
Height = 21
Left = 65
MaxLength = 16
TabIndex = 50
Top = 261
Width = 82
Name = "Text18"
textbox
textbox
Text19
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1114"
Height = 21
Left = 65
MaxLength = 16
TabIndex = 54
Top = 282
Width = 82
Name = "Text19"
textbox
textbox
Text20
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1115"
Height = 21
Left = 65
MaxLength = 16
TabIndex = 58
Top = 303
Width = 82
Name = "Text20"
textbox
textbox
Text21
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1122"
Height = 21
Left = 147
MaxLength = 16
TabIndex = 47
Top = 240
Width = 82
Name = "Text21"
textbox
textbox
Text22
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1123"
Height = 21
Left = 147
MaxLength = 16
TabIndex = 51
Top = 261
Width = 82
Name = "Text22"
textbox
textbox
Text23
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1124"
Height = 21
Left = 147
MaxLength = 16
TabIndex = 55
Top = 282
Width = 82
Name = "Text23"
textbox
textbox
Text24
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1125"
Height = 21
Left = 147
MaxLength = 16
TabIndex = 59
Top = 303
Width = 82
Name = "Text24"
textbox
textbox
Text25
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1132"
Height = 21
Left = 229
MaxLength = 16
TabIndex = 48
Top = 240
Width = 82
Name = "Text25"
textbox
textbox
Text26
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1133"
Height = 21
Left = 229
MaxLength = 16
TabIndex = 52
Top = 261
Width = 82
Name = "Text26"
textbox
textbox
Text27
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1134"
Height = 21
Left = 229
MaxLength = 16
TabIndex = 56
Top = 282
Width = 82
Name = "Text27"
textbox
textbox
Text28
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1135"
Height = 21
Left = 229
MaxLength = 16
TabIndex = 60
Top = 303
Width = 82
Name = "Text28"
textbox
textbox
Text29
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1142"
Enabled = .F.
Height = 21
Left = 419
MaxLength = 16
TabIndex = 49
Top = 12
Visible = .F.
Width = 65
Name = "Text29"
textbox
textbox
Text30
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1143"
Enabled = .F.
Height = 21
Left = 439
MaxLength = 16
TabIndex = 53
Top = 12
Visible = .F.
Width = 65
Name = "Text30"
textbox
textbox
Text31
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1144"
Enabled = .F.
Height = 21
Left = 458
MaxLength = 16
TabIndex = 57
Top = 9
Visible = .F.
Width = 67
Name = "Text31"
textbox
textbox
Text32
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1145"
Enabled = .F.
Height = 21
Left = 475
MaxLength = 16
TabIndex = 61
Top = 11
Visible = .F.
Width = 67
Name = "Text32"
textbox
textbox
Text33
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1212"
Height = 21
Left = 327
MaxLength = 16
TabIndex = 66
Top = 240
Width = 82
Name = "Text33"
textbox
textbox
Text34
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1213"
Height = 21
Left = 327
MaxLength = 16
TabIndex = 70
Top = 261
Width = 82
Name = "Text34"
textbox
textbox
Text35
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1214"
Height = 21
Left = 327
MaxLength = 16
TabIndex = 74
Top = 282
Width = 82
Name = "Text35"
textbox
textbox
Text36
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1215"
Height = 21
Left = 327
MaxLength = 16
TabIndex = 78
Top = 303
Width = 82
Name = "Text36"
textbox
textbox
Text37
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1222"
Height = 21
Left = 409
MaxLength = 16
TabIndex = 67
Top = 240
Width = 82
Name = "Text37"
textbox
textbox
Text38
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1223"
Height = 21
Left = 409
MaxLength = 16
TabIndex = 71
Top = 261
Width = 82
Name = "Text38"
textbox
textbox
Text39
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1224"
Height = 21
Left = 409
MaxLength = 16
TabIndex = 75
Top = 282
Width = 82
Name = "Text39"
textbox
textbox
Text40
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1225"
Height = 21
Left = 409
MaxLength = 16
TabIndex = 79
Top = 303
Width = 82
Name = "Text40"
textbox
textbox
Text41
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1232"
Height = 21
Left = 491
MaxLength = 16
TabIndex = 68
Top = 240
Width = 82
Name = "Text41"
textbox
textbox
Text42
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1233"
Height = 21
Left = 491
MaxLength = 16
TabIndex = 72
Top = 261
Width = 82
Name = "Text42"
textbox
textbox
Text125
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1234"
Height = 21
Left = 491
MaxLength = 16
TabIndex = 76
Top = 282
Width = 82
Name = "Text125"
textbox
textbox
Text126
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1235"
Height = 21
Left = 491
MaxLength = 16
TabIndex = 80
Top = 303
Width = 82
Name = "Text126"
textbox
textbox
Text127
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1242"
Enabled = .F.
Height = 21
Left = 582
MaxLength = 16
TabIndex = 69
Top = 8
Visible = .F.
Width = 65
Name = "Text127"
textbox
textbox
Text128
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1243"
Enabled = .F.
Height = 21
Left = 594
MaxLength = 16
TabIndex = 73
Top = 8
Visible = .F.
Width = 65
Name = "Text128"
textbox
textbox
Text129
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1244"
Enabled = .F.
Height = 21
Left = 608
MaxLength = 16
TabIndex = 77
Top = 13
Visible = .F.
Width = 67
Name = "Text129"
textbox
textbox
Text130
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1245"
Enabled = .F.
Height = 21
Left = 624
MaxLength = 16
TabIndex = 81
Top = 12
Visible = .F.
Width = 67
Name = "Text130"
textbox
textbox
Text131
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1312"
Height = 21
Left = 589
MaxLength = 16
TabIndex = 86
Top = 240
Width = 82
Name = "Text131"
textbox
textbox
Text132
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1313"
Height = 21
Left = 589
MaxLength = 16
TabIndex = 90
Top = 261
Width = 82
Name = "Text132"
textbox
textbox
Text133
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1314"
Height = 21
Left = 589
MaxLength = 16
TabIndex = 94
Top = 282
Width = 82
Name = "Text133"
textbox
textbox
Text134
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1315"
Height = 21
Left = 589
MaxLength = 16
TabIndex = 98
Top = 303
Width = 82
Name = "Text134"
textbox
textbox
Text135
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1322"
Height = 21
Left = 671
MaxLength = 16
TabIndex = 87
Top = 240
Width = 82
Name = "Text135"
textbox
textbox
Text136
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1323"
Height = 21
Left = 671
MaxLength = 16
TabIndex = 91
Top = 261
Width = 82
Name = "Text136"
textbox
textbox
Text137
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1324"
Height = 21
Left = 671
MaxLength = 16
TabIndex = 95
Top = 282
Width = 82
Name = "Text137"
textbox
textbox
Text138
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1325"
Height = 21
Left = 671
MaxLength = 16
TabIndex = 99
Top = 303
Width = 82
Name = "Text138"
textbox
textbox
Text139
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1332"
Height = 21
Left = 753
MaxLength = 16
TabIndex = 88
Top = 240
Width = 82
Name = "Text139"
textbox
textbox
Text140
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1333"
Height = 21
Left = 753
MaxLength = 16
TabIndex = 92
Top = 261
Width = 82
Name = "Text140"
textbox
textbox
Text141
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1334"
Height = 21
Left = 753
MaxLength = 16
TabIndex = 96
Top = 282
Width = 82
Name = "Text141"
textbox
textbox
Text142
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1335"
Height = 21
Left = 753
MaxLength = 16
TabIndex = 100
Top = 303
Width = 82
Name = "Text142"
textbox
textbox
Text143
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1342"
Enabled = .F.
Height = 21
Left = 726
MaxLength = 16
TabIndex = 89
Top = 10
Visible = .F.
Width = 65
Name = "Text143"
textbox
textbox
Text144
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1343"
Enabled = .F.
Height = 21
Left = 741
MaxLength = 16
TabIndex = 93
Top = 9
Visible = .F.
Width = 65
Name = "Text144"
textbox
textbox
Text145
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1344"
Enabled = .F.
Height = 21
Left = 757
MaxLength = 16
TabIndex = 97
Top = 10
Visible = .F.
Width = 67
Name = "Text145"
textbox
textbox
Text146
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_1345"
Enabled = .F.
Height = 21
Left = 771
MaxLength = 16
TabIndex = 101
Top = 9
Visible = .F.
Width = 67
Name = "Text146"
shape
shape
Shape19
IMPORTSAFT1
dTop = 213
Left = 2
Height = 2
Width = 842
BorderStyle = 1
SpecialEffect = 0
Name = "Shape19"
shape
shape
Shape20
IMPORTSAFT1
eTop = 195
Left = 58
Height = 2
Width = 785
BorderStyle = 1
SpecialEffect = 0
Name = "Shape20"
label
label
Label49
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .F.
FontItalic = .T.
Caption = "CONTAS DE DEBITOS EM VENDAS"
Height = 17
Left = 11
Top = 340
Width = 201
TabIndex = 102
ForeColor = 255,0,0
Name = "Label49"
label
label
Label50
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Mercado Nacional"
Height = 16
Left = 139
Top = 367
Width = 98
TabIndex = 105
ForeColor = 0,64,128
Name = "Label50"
label
label
Label51
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Mercado Intracomunit
Height = 16
Left = 378
Top = 367
Width = 144
TabIndex = 106
ForeColor = 0,64,128
Name = "Label51"
label
label
Label52
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "Outros mercados"
Height = 16
Left = 659
Top = 367
Width = 99
TabIndex = 107
ForeColor = 0,64,128
Name = "Label52"
label
label
Label53
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Produtos"
Height = 16
Left = 81
Top = 384
Width = 45
TabIndex = 108
Name = "Label53"
label
label
Label54
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Servi
Height = 16
Left = 163
Top = 384
Visible = .F.
Width = 45
TabIndex = 109
Name = "Label54"
label
label
Label55
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Outras"
Height = 16
Left = 250
Top = 384
Visible = .F.
Width = 35
TabIndex = 110
Name = "Label55"
label
label
Label57
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Produtos"
Height = 16
Left = 343
Top = 384
Width = 45
TabIndex = 111
Name = "Label57"
label
label
Label58
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Servi
Height = 16
Left = 425
Top = 384
Visible = .F.
Width = 45
TabIndex = 112
Name = "Label58"
label
label
Label59
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Outras"
Height = 16
Left = 512
Top = 384
Visible = .F.
Width = 35
TabIndex = 113
Name = "Label59"
label
label
Label61
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Produtos"
Height = 16
Left = 605
Top = 384
Width = 45
TabIndex = 114
Name = "Label61"
label
label
Label62
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Servi
Height = 16
Left = 687
Top = 384
Visible = .F.
Width = 45
TabIndex = 115
Name = "Label62"
label
label
Label63
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
Caption = "Outras"
Height = 16
Left = 777
Top = 384
Visible = .F.
Width = 35
TabIndex = 116
Name = "Label63"
label
label
Label65
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Reduzido"
Height = 16
Left = 5
Top = 408
Width = 47
TabIndex = 117
Name = "Label65"
label
label
Label66
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Intermedio"
Height = 16
Left = 5
Top = 429
Width = 51
TabIndex = 118
Name = "Label66"
label
label
Label67
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Normal"
Height = 16
Left = 5
Top = 450
Width = 35
TabIndex = 119
Name = "Label67"
label
label
Label68
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Outro"
Height = 16
Left = 5
Top = 471
Width = 29
TabIndex = 120
Name = "Label68"
label
label
Label69
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontSize = 8
BorderStyle = 0
Caption = "Isento"
Height = 16
Left = 5
Top = 492
Width = 31
TabIndex = 121
Name = "Label69"
shape
shape
Shape26
IMPORTSAFT1
dTop = 400
Left = 2
Height = 2
Width = 841
BorderStyle = 1
SpecialEffect = 0
Name = "Shape26"
shape
shape
Shape27
IMPORTSAFT1
eTop = 382
Left = 57
Height = 2
Width = 786
BorderStyle = 1
SpecialEffect = 0
Name = "Shape27"
shape
shape
Shape28
IMPORTSAFT1
eTop = 363
Left = 57
Height = 156
Width = 2
BorderStyle = 1
SpecialEffect = 0
Name = "Shape28"
shape
shape
Shape29
IMPORTSAFT1
fTop = 363
Left = 319
Height = 156
Width = 2
BorderStyle = 1
SpecialEffect = 0
Name = "Shape29"
shape
shape
Shape30
IMPORTSAFT1
fTop = 363
Left = 581
Height = 156
Width = 2
BorderStyle = 1
SpecialEffect = 0
Name = "Shape30"
label
label
Label28
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "IVA"
Height = 16
Left = 15
Top = 189
Width = 21
TabIndex = 23
ForeColor = 0,64,128
Name = "Label28"
label
label
Label29
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontSize = 8
Caption = "IVA"
Height = 16
Left = 16
Top = 375
Width = 21
TabIndex = 104
ForeColor = 0,64,128
Name = "Label29"
textbox
textbox
Text43
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2111"
Height = 21
Left = 62
MaxLength = 16
TabIndex = 122
Top = 405
Width = 82
Name = "Text43"
textbox
textbox
Text44
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2121"
Height = 21
Left = 144
MaxLength = 16
TabIndex = 123
Top = 405
Width = 82
Name = "Text44"
textbox
textbox
Text45
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2131"
Height = 21
Left = 226
MaxLength = 16
TabIndex = 124
Top = 405
Width = 82
Name = "Text45"
textbox
textbox
Text46
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2141"
Enabled = .F.
Height = 21
Left = 378
MaxLength = 16
TabIndex = 125
Top = 559
Visible = .F.
Width = 40
Name = "Text46"
textbox
textbox
Text47
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2211"
Height = 21
Left = 324
MaxLength = 16
TabIndex = 142
Top = 405
Width = 82
Name = "Text47"
textbox
textbox
Text48
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2221"
Height = 21
Left = 406
MaxLength = 16
TabIndex = 143
Top = 405
Width = 82
Name = "Text48"
textbox
textbox
Text49
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2231"
Height = 21
Left = 488
MaxLength = 16
TabIndex = 144
Top = 405
Width = 82
Name = "Text49"
textbox
textbox
Text50
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2241"
Enabled = .F.
Height = 21
Left = 479
MaxLength = 16
TabIndex = 145
Top = 559
Visible = .F.
Width = 40
Name = "Text50"
textbox
textbox
Text51
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2311"
Height = 21
Left = 586
MaxLength = 16
TabIndex = 162
Top = 405
Width = 82
Name = "Text51"
textbox
textbox
Text52
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2321"
Height = 21
Left = 668
MaxLength = 16
TabIndex = 163
Top = 405
Width = 82
Name = "Text52"
textbox
textbox
Text53
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2331"
Height = 21
Left = 750
MaxLength = 16
TabIndex = 164
Top = 405
Width = 82
Name = "Text53"
textbox
textbox
Text54
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2341"
Enabled = .F.
Height = 21
Left = 592
MaxLength = 16
TabIndex = 165
Top = 559
Visible = .F.
Width = 40
Name = "Text54"
textbox
textbox
Text55
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2112"
Height = 21
Left = 62
MaxLength = 16
TabIndex = 126
Top = 426
Width = 82
Name = "Text55"
textbox
textbox
Text56
IMPORTSAFT1
Tag = "1113"
DragIcon =
FontSize = 8
ControlSource = "saft_2113"
Height = 21
Left = 62
MaxLength = 16
TabIndex = 130
Top = 447
Width = 82
Name = "Text56"
textbox
textbox
Text57
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2114"
Height = 21
Left = 62
MaxLength = 16
TabIndex = 134
Top = 468
Width = 82
Name = "Text57"
textbox
textbox
Text58
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2115"
Height = 21
Left = 62
MaxLength = 16
TabIndex = 138
Top = 489
Width = 82
Name = "Text58"
textbox
textbox
Text59
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2122"
Height = 21
Left = 144
MaxLength = 16
TabIndex = 127
Top = 426
Width = 82
Name = "Text59"
textbox
textbox
Text60
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2123"
Height = 21
Left = 144
MaxLength = 16
TabIndex = 131
Top = 447
Width = 82
Name = "Text60"
textbox
textbox
Text61
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2124"
Height = 21
Left = 144
MaxLength = 16
TabIndex = 135
Top = 468
Width = 82
Name = "Text61"
textbox
textbox
Text62
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2125"
Height = 21
Left = 144
MaxLength = 16
TabIndex = 139
Top = 489
Width = 82
Name = "Text62"
textbox
textbox
Text63
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2132"
Height = 21
Left = 226
MaxLength = 16
TabIndex = 128
Top = 426
Width = 82
Name = "Text63"
textbox
textbox
Text64
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2133"
Height = 21
Left = 226
MaxLength = 16
TabIndex = 132
Top = 447
Width = 82
Name = "Text64"
textbox
textbox
Text65
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2134"
Height = 21
Left = 226
MaxLength = 16
TabIndex = 136
Top = 468
Width = 82
Name = "Text65"
textbox
textbox
Text66
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2135"
Height = 21
Left = 226
MaxLength = 16
TabIndex = 140
Top = 489
Width = 82
Name = "Text66"
textbox
textbox
Text67
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2142"
Enabled = .F.
Height = 21
Left = 388
MaxLength = 16
TabIndex = 129
Top = 563
Visible = .F.
Width = 40
Name = "Text67"
textbox
textbox
Text68
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2143"
Enabled = .F.
Height = 21
Left = 402
MaxLength = 16
TabIndex = 133
Top = 567
Visible = .F.
Width = 40
Name = "Text68"
textbox
textbox
Text69
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2144"
Enabled = .F.
Height = 21
Left = 410
MaxLength = 16
TabIndex = 137
Top = 571
Visible = .F.
Width = 40
Name = "Text69"
textbox
textbox
Text70
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2145"
Enabled = .F.
Height = 21
Left = 419
MaxLength = 16
TabIndex = 141
Top = 575
Visible = .F.
Width = 40
Name = "Text70"
textbox
textbox
Text71
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2212"
Height = 21
Left = 324
MaxLength = 16
TabIndex = 146
Top = 426
Width = 82
Name = "Text71"
textbox
textbox
Text72
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2213"
Height = 21
Left = 324
MaxLength = 16
TabIndex = 150
Top = 447
Width = 82
Name = "Text72"
textbox
textbox
Text73
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2214"
Height = 21
Left = 324
MaxLength = 16
TabIndex = 154
Top = 468
Width = 82
Name = "Text73"
textbox
textbox
Text74
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2215"
Height = 21
Left = 324
MaxLength = 16
TabIndex = 158
Top = 489
Width = 82
Name = "Text74"
textbox
textbox
Text75
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2222"
Height = 21
Left = 406
MaxLength = 16
TabIndex = 147
Top = 426
Width = 82
Name = "Text75"
textbox
textbox
Text76
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2223"
Height = 21
Left = 406
MaxLength = 16
TabIndex = 151
Top = 447
Width = 82
Name = "Text76"
textbox
textbox
Text77
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2224"
Height = 21
Left = 406
MaxLength = 16
TabIndex = 155
Top = 468
Width = 82
Name = "Text77"
textbox
textbox
Text78
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2225"
Height = 21
Left = 406
MaxLength = 16
TabIndex = 159
Top = 489
Width = 82
Name = "Text78"
textbox
textbox
Text79
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2232"
Height = 21
Left = 488
MaxLength = 16
TabIndex = 148
Top = 426
Width = 82
Name = "Text79"
textbox
textbox
Text80
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2233"
Height = 21
Left = 488
MaxLength = 16
TabIndex = 152
Top = 447
Width = 82
Name = "Text80"
textbox
textbox
Text81
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2234"
Height = 21
Left = 488
MaxLength = 16
TabIndex = 156
Top = 468
Width = 82
Name = "Text81"
textbox
textbox
Text82
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2235"
Height = 21
Left = 488
MaxLength = 16
TabIndex = 160
Top = 489
Width = 82
Name = "Text82"
textbox
textbox
Text83
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2242"
Enabled = .F.
Height = 21
Left = 491
MaxLength = 16
TabIndex = 149
Top = 562
Visible = .F.
Width = 40
Name = "Text83"
textbox
textbox
Text84
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2243"
Enabled = .F.
Height = 21
Left = 501
MaxLength = 16
TabIndex = 153
Top = 566
Visible = .F.
Width = 40
Name = "Text84"
textbox
textbox
Text85
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2244"
Enabled = .F.
Height = 21
Left = 512
MaxLength = 16
TabIndex = 157
Top = 569
Visible = .F.
Width = 40
Name = "Text85"
textbox
textbox
Text86
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2245"
Enabled = .F.
Height = 21
Left = 522
MaxLength = 16
TabIndex = 161
Top = 573
Visible = .F.
Width = 40
Name = "Text86"
textbox
textbox
Text87
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2312"
Height = 21
Left = 586
MaxLength = 16
TabIndex = 166
Top = 426
Width = 82
Name = "Text87"
textbox
textbox
Text88
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2313"
Height = 21
Left = 586
MaxLength = 16
TabIndex = 170
Top = 447
Width = 82
Name = "Text88"
textbox
textbox
Text89
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2314"
Height = 21
Left = 586
MaxLength = 16
TabIndex = 174
Top = 468
Width = 82
Name = "Text89"
textbox
textbox
Text90
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2315"
Height = 21
Left = 586
MaxLength = 16
TabIndex = 178
Top = 489
Width = 82
Name = "Text90"
textbox
textbox
Text91
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2322"
Height = 21
Left = 668
MaxLength = 16
TabIndex = 167
Top = 426
Width = 82
Name = "Text91"
textbox
textbox
Text92
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2323"
Height = 21
Left = 668
MaxLength = 16
TabIndex = 171
Top = 447
Width = 82
Name = "Text92"
textbox
textbox
Text93
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2324"
Height = 21
Left = 668
MaxLength = 16
TabIndex = 175
Top = 468
Width = 82
Name = "Text93"
textbox
textbox
Text94
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2325"
Height = 21
Left = 668
MaxLength = 16
TabIndex = 179
Top = 489
Width = 82
Name = "Text94"
textbox
textbox
Text95
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2332"
Height = 21
Left = 750
MaxLength = 16
TabIndex = 168
Top = 426
Width = 82
Name = "Text95"
textbox
textbox
Text96
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2333"
Height = 21
Left = 750
MaxLength = 16
TabIndex = 172
Top = 447
Width = 82
Name = "Text96"
textbox
textbox
Text97
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2334"
Height = 21
Left = 750
MaxLength = 16
TabIndex = 176
Top = 468
Width = 82
Name = "Text97"
textbox
textbox
Text98
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2335"
Height = 21
Left = 750
MaxLength = 16
TabIndex = 180
Top = 489
Width = 82
Name = "Text98"
textbox
textbox
Text99
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2342"
Enabled = .F.
Height = 21
Left = 600
MaxLength = 16
TabIndex = 169
Top = 562
Visible = .F.
Width = 40
Name = "Text99"
textbox
textbox
Text100
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2343"
Enabled = .F.
Height = 21
Left = 610
MaxLength = 16
TabIndex = 173
Top = 566
Visible = .F.
Width = 40
Name = "Text100"
textbox
textbox
Text101
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2344"
Enabled = .F.
Height = 21
Left = 621
MaxLength = 16
TabIndex = 177
Top = 569
Visible = .F.
Width = 40
Name = "Text101"
textbox
textbox
Text102
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_2345"
Enabled = .F.
Height = 21
Left = 631
MaxLength = 16
TabIndex = 181
Top = 572
Visible = .F.
Width = 40
Name = "Text102"
commandbutton
commandbutton
Command5
IMPORTSAFT1
|Top = 563
Left = 276
Height = 27
Width = 84
FontSize = 8
Caption = "Gravar modelo"
TabIndex = 182
Name = "Command5"
PROCEDURE Click
IF !EMPTY(Thisform.Combo1.Value)
    upd_parms(ALLTRIM(Thisform.Combo1.value),"saft_*")
    =MESSAGEBOX("Modelo gravado",0+64)
    =MESSAGEBOX("Escolha um modelo",0+64)
ENDIF
ENDPROC
hBorderWidth = 2
Height = 0
Left = 0
Top = 555
Width = 852
BorderColor = 0,123,183
Name = "Line5"
hBorderWidth = 2
Height = 0
Left = 0
Top = 334
Width = 852
BorderColor = 0,123,183
Name = "Line4"
hBorderWidth = 2
Height = 0
Left = 0
Top = 121
Width = 852
BorderColor = 0,123,183
Name = "Line2"
textbox
textbox
Text103
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_ftdesc"
Height = 21
Left = 173
MaxLength = 27
TabIndex = 14
Top = 125
Width = 197
Name = "Text103"
textbox
textbox
Text104
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_ncdesc"
Height = 21
Left = 251
MaxLength = 27
TabIndex = 103
Top = 338
Width = 197
Name = "Text104"
textbox
textbox
Text105
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_fsdesc"
Height = 21
Left = 404
MaxLength = 27
TabIndex = 20
Top = 125
Width = 197
Name = "Text105"
textbox
textbox
Text106
IMPORTSAFT1
DragIcon =
FontSize = 8
ControlSource = "saft_nddesc"
Height = 21
Left = 638
MaxLength = 27
TabIndex = 22
Top = 125
Width = 197
Name = "Text106"
label
label
Label30
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontItalic = .T.
Caption = "FS"
Height = 17
Left = 385
Top = 127
Width = 17
TabIndex = 18
ForeColor = 255,0,0
Name = "Label30"
label
label
Label31
IMPORTSAFT1
AutoSize = .T.
DragIcon =
FontBold = .T.
FontItalic = .T.
Caption = "ND"
Height = 17
Left = 616
Top = 127
Width = 20
TabIndex = 21
ForeColor = 255,0,0
Name = "Label31"
image
image
Imgcross
IMPORTSAFT1
Picture = ..\shared\icons\bigcross.png
Stretch = 2
BackStyle = 0
Height = 49
Left = 722
Top = 57
Visible = .F.
Width = 54
Name = "Imgcross"
shape
shape
Shape23
IMPORTSAFT1
fTop = 176
Left = 581
Height = 157
Width = 2
BorderStyle = 1
SpecialEffect = 0
Name = "Shape23"
shape
shape
Shape22
IMPORTSAFT1
fTop = 176
Left = 319
Height = 157
Width = 2
BorderStyle = 1
SpecialEffect = 0
Name = "Shape22"
shape
shape
Shape21
IMPORTSAFT1
eTop = 176
Left = 57
Height = 157
Width = 2
BorderStyle = 1
SpecialEffect = 0
Name = "Shape21"
Nome do Novo modelo
SAFT_*
key_1
parm.chave
O novo modelo foi criado
NOVOMODELO
UPD_PARMS
THISFORM
COMBO1
CONTROLSOURCE
REFRESH
SETFOCUS
TEXT1
VALID
Click,
Saft_CC
STORE SPACE(16) TO &nome_var
Escolha um modelo da lista ou insira um novo
VALUE
SAFT_CN
SAFT_CI
SAFT_CO
SAFT_CC
SAFT_FTDESC
SAFT_NCDESC
SAFT_FSDESC
SAFT_FRDESC
SAFT_NDDESC
SAFT_FS
SAFT_CONTAFS
SAFT_RFSP
SAFT_RFE
SAFT_TIPOREG
TIPO_DOC
TIPO_MERCADO
TIPO_VENDA
TIPO_IVA
NOME_VAR
SET_PARMS
THISFORM
REFRESH
CHECK1
INTERACTIVECHANGE
TEXT1
VALID
InteractiveChange,
Valid
Saft_CC
STORE SPACE(16) TO &nome_var
SAFT_CN
SAFT_CI
SAFT_CO
SAFT_CC
SAFT_FTDESC
SAFT_NCDESC
SAFT_FSDESC
SAFT_FRDESC
SAFT_NDDESC
SAFT_FS
SAFT_CONTAFS
SAFT_RFSP
SAFT_RFE
SAFT_TIPOREG
TIPO_DOC
TIPO_MERCADO
TIPO_VENDA
TIPO_IVA
NOME_VAR
THISFORM
REFRESH
0123456789?CN
_CONTA
LCCONTA
LBRET
LCCHAR
THISFORM
VALIDA_CONTA_COMPOSICAO
LNIND
_CONTA
LBRET
LNTOTAL
CLEAR_RELATIONS
Saft_CC
PUBLIC &nome_var
STORE SPACE(16) TO &nome_var
CHAVE
SAFT_CN
SAFT_CI
SAFT_CO
SAFT_CC
SAFT_FTDESC
SAFT_NCDESC
SAFT_FSDESC
SAFT_FRDESC
SAFT_NDDESC
SAFT_FS
SAFT_CONTAFS
SAFT_RFSP
SAFT_RFE
SAFT_TIPOREG
TIPO_DOC
TIPO_MERCADO
TIPO_VENDA
TIPO_IVA
NOME_VAR
THISFORM
CHECK1
INTERACTIVECHANGE
limpa,
valida_contaL
valida_conta_composicaov
Unloadc
    pHYs
tEXtSoftware
Paint.NET v3.5.11G
?IDAThC
h^:(v
M_!/<
@U/&|X
fw;~Im
xfP</
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _3XP0WU8TU1132100202
 WINDOWS _3XP0WU8TV1132222922
 WINDOWS _3XP0XG53K1132222768V
 WINDOWS _3XP0XG53L1132222768I
 WINDOWS _3XP0XG53N1132222768;
 WINDOWS _3XP0WU8TU11322229223
 WINDOWS _3XP0XKOI11132222007
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
importsafr_relat2
Top = 0
Left = 0
Height = 151
Width = 207
DoCreate = .T.
Caption = "Op
es de impress
o..."
ControlBox = .F.
WindowType = 1
Name = "importsafr_relat2"
|PROCEDURE Init
LPARAMETERS _top, _left
this.Top = _top + 110
this.Left = _left + 210
this.command1.SetFocus
ENDPROC
THISFORM
RELEASE
Click,
BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
Command2
checkbox
checkbox
Check1
importsafr_relat2
Top = 25
Left = 64
Height = 16
Width = 57
FontSize = 8
AutoSize = .T.
Caption = "Resumo"
Value = 1
TabIndex = 1
Name = "Check1"
PROCEDURE InteractiveChange
IF this.Value + thisform.check2.Value + thisform.check3.Value > 0
    thisform.command1.Enabled = .t.
    thisform.command1.Enabled = .f.
ENDIF
ENDPROC
VALUE
THISFORM
CHECK1
CHECK2
COMMAND1
ENABLED
InteractiveChange,
checkbox
checkbox
Check2
importsafr_relat2
Top = 46
Left = 64
Height = 16
Width = 44
FontSize = 8
AutoSize = .T.
Caption = "Erros"
Value = 1
TabIndex = 2
Name = "Check2"
PROCEDURE InteractiveChange
IF this.Value + thisform.check1.Value + thisform.check3.Value > 0
    thisform.command1.Enabled = .t.
    thisform.command1.Enabled = .f.
ENDIF
ENDPROC
VALUE
THISFORM
CHECK1
CHECK3
COMMAND1
ENABLED
InteractiveChange,
checkbox
checkbox
Check3
importsafr_relat2
Top = 67
Left = 64
Height = 16
Width = 78
FontSize = 8
AutoSize = .T.
Caption = "Informa
Value = 1
TabIndex = 3
Name = "Check3"
PROCEDURE InteractiveChange
IF this.Value + thisform.check1.Value + thisform.check2.Value > 0
    thisform.command1.Enabled = .t.
    thisform.command1.Enabled = .f.
ENDIF
ENDPROC
VALUE
THISFORM
CHECK2
CHECK3
COMMAND1
ENABLED
InteractiveChange,
commandbutton
commandbutton
Command1
importsafr_relat2
vTop = 113
Left = 22
Height = 25
Width = 80
FontSize = 8
Caption = "\<Imprimir"
TabIndex = 5
Name = "Command1"
PROCEDURE Click
LOCAL lnopc, lcfiltro
lnopc = 0
lcfiltro = ""
* Resumo
IF thisform.check1.Value = 1
    lnopc = lnopc + 2
ENDIF
* Erros
IF thisform.check2.Value = 1
    lnopc = lnopc + 4
ENDIF
* Informa
IF thisform.check3.Value = 1
    lnopc = lnopc + 8
ENDIF
DO case
    CASE lnopc = 2
        lcfiltro = "rlt_tipo_erro = 0"
    CASE lnopc = 4
        lcfiltro = "rlt_tipo_erro = 9"
    CASE lnopc = 6
        lcfiltro = "rlt_tipo_erro = 0 or rlt_tipo_erro = 9"
    CASE lnopc = 8
        lcfiltro = "rlt_tipo_erro = 1"
    CASE lnopc = 10
        lcfiltro = "rlt_tipo_erro = 0 or rlt_tipo_erro = 1"
    CASE lnopc = 12
        lcfiltro = "rlt_tipo_erro = 1 or rlt_tipo_erro = 9"
ENDCASE
select cs_relatorio
SET FILTER TO &lcfiltro
go top
IF EOF()
    =MESSAGEBOX("N
 nada p/ a imprimir", 0+64, "...")
    =imp("importsaft_r1","",.t.)
ENDIF
SET FILTER TO
thisform.Release
ENDPROC
rlt_tipo_erro = 0
rlt_tipo_erro = 9
rlt_tipo_erro = 0 or rlt_tipo_erro = 9
rlt_tipo_erro = 1
rlt_tipo_erro = 0 or rlt_tipo_erro = 1
rlt_tipo_erro = 1 or rlt_tipo_erro = 9
SET FILTER TO &lcfiltro
 nada p/ a imprimir
importsaft_r1
LNOPC
LCFILTRO
THISFORM
CHECK1
VALUE
CHECK2
CHECK3
CS_RELATORIO
RELEASE
Click,
commandbutton
commandbutton
importsafr_relat2
Top = 113
Left = 105
Height = 25
Width = 80
FontSize = 8
Cancel = .T.
Caption = "\<Cancelar"
TabIndex = 6
Name = "Command2"
.PROCEDURE Click
thisform.Release
ENDPROC
_LEFT
COMMAND1
SETFOCUS
Init,
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _3ZI11EME41144818532
 WINDOWS _3ZI11EME51146260337
 WINDOWS _3ZI11PE031146258364
 WINDOWS _3ZI11PE061145996993
 WINDOWS _3ZI11PE071145998134K
 WINDOWS _3ZI11PE081144818800
 WINDOWS _3ZI11PE091144818800
 WINDOWS _4030ZD1K81146258364
 WINDOWS _40310HYRV11462601365
 WINDOWS _3ZI11EME41146258364^
 WINDOWS _3ZI11PE0A1146258364P
 WINDOWS _3ZI11EME41145997147D
 WINDOWS _3ZI11EME51145997085
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
IMPORTSAFT_SERIES
Top = 0
Left = 0
Height = 291
Width = 285
DoCreate = .T.
Caption = "Form1"
TitleBar = 0
WindowType = 1
Name = "IMPORTSAFT_SERIES"
fPROCEDURE Init
LPARAMETERS _top, _left
this.Top = _top + 200
this.Left = _left + 160
ENDPROC
P_DECISAO
THISFORM
RELEASE
Click,
IMPORTSAFT_SERIES
Grid1
IMPORTSAFT_SERIES
gColumnCount = 3
FontSize = 8
AllowHeaderSizing = .F.
AllowRowSizing = .F.
DeleteMark = .F.
GridLines = 0
Height = 189
Highlight = .F.
HighlightRow = .F.
Left = 27
Panel = 1
RecordSource = "cs_serie_documentos"
RowHeight = 17
ScrollBars = 0
Top = 50
Width = 231
AllowAutoColumnFit = 2
Name = "Grid1"
Column1.FontSize = 8
Column1.ColumnOrder = 1
Column1.ControlSource = "serie"
Column1.Width = 109
Column1.ReadOnly = .T.
Column1.Name = "Column2"
Column2.FontSize = 8
Column2.Alignment = 2
Column2.ColumnOrder = 2
Column2.ControlSource = "escolhido"
Column2.Width = 30
Column2.Sparse = .F.
Column2.Name = "Column3"
Column3.FontSize = 8
Column3.Alignment = 2
Column3.ControlSource = "redoc"
Column3.Width = 75
Column3.Sparse = .F.
Column3.DynamicForeColor = "iif(between(redoc,1,3),rgb(0,0,0),rgb(255,255,255))"
Column3.Name = "Column1"
header
header
Header1
IMPORTSAFT_SERIES.Grid1.Column2
BFontSize = 8
Alignment = 2
Caption = "S
Name = "Header1"
textbox
textbox
Text1
IMPORTSAFT_SERIES.Grid1.Column2
wFontSize = 8
BorderStyle = 0
Margin = 4
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header
header
Header1
IMPORTSAFT_SERIES.Grid1.Column3
>FontSize = 8
Alignment = 2
Caption = "?"
Name = "Header1"
checkbox
checkbox
Check1
IMPORTSAFT_SERIES.Grid1.Column3
Top = 35
Left = 18
Height = 17
Width = 60
Alignment = 0
Centered = .T.
Caption = ""
SpecialEffect = 1
Name = "Check1"
header
header
Header1
IMPORTSAFT_SERIES.Grid1.Column1
KFontSize = 8
Alignment = 2
Caption = " Reclassificar"
Name = "Header1"
combobox
combobox
Combo1
IMPORTSAFT_SERIES.Grid1.Column1
FontSize = 8
Alignment = 2
RowSourceType = 1
RowSource = "FT,FS,FR, "
Height = 24
ColumnLines = .F.
Left = 25
SpecialEffect = 1
Style = 2
Top = 21
Width = 100
BorderStyle = 0
Name = "Combo1"
commandbutton
commandbutton
Command1
IMPORTSAFT_SERIES
iTop = 254
Left = 97
Height = 25
Width = 80
FontSize = 8
Caption = "Co\<ntinuar"
Name = "Command1"
?PROCEDURE Click
p_decisao = .t.
thisform.Release
ENDPROC
P_DECISAO
THISFORM
RELEASE
Click,
commandbutton
commandbutton
Command2
IMPORTSAFT_SERIES
iTop = 254
Left = 178
Height = 25
Width = 80
FontSize = 8
Caption = "\<Cancelar"
Name = "Command2"
?PROCEDURE Click
p_decisao = .f.
thisform.Release
ENDPROC
BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
Label2
label
label
oTop = 0
Left = -1
Height = 31
Width = 284
BackColor = 0,128,192
BorderColor = 0,128,192
Name = "Shape1"
shape
shape
Shape1
IMPORTSAFT_SERIES
AutoSize = .T.
FontBold = .T.
FontItalic = .T.
BackStyle = 0
Caption = "S
ries de documentos"
Height = 17
Left = 9
Top = 8
Width = 130
ForeColor = 255,255,255
Name = "Label2"
_LEFT
Init,
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _3ZI11EME41144818532
 WINDOWS _3ZI11EME51145997137
 WINDOWS _3ZI11PE031145997137
 WINDOWS _3ZI11PE041144818800,
 WINDOWS _3ZI11PE051144819220
 WINDOWS _3ZI11PE061144818800
 WINDOWS _3ZI11PE071144819220D
 WINDOWS _3ZI11PE081144818800
 WINDOWS _3ZI11PE091144818800
 WINDOWS _3ZI11EME41145997137
 WINDOWS _3ZI11PE0A1145997137w
 WINDOWS _3ZZ10DUQT1145997137k
 WINDOWS _3ZZ10DUQU1145997137
 COMMENT RESERVED
VERSION =   3.00
dataenvironment
dataenvironment
Dataenvironment
YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
IMPORTSAFT_TIPOS
Top = 0
Left = 0
Height = 225
Width = 282
DoCreate = .T.
Caption = "Form1"
TitleBar = 0
WindowType = 1
Name = "IMPORTSAFT_TIPOS"
fPROCEDURE Init
LPARAMETERS _top, _left
this.Top = _top + 200
this.Left = _left + 100
ENDPROC
P_DECISAO
THISFORM
RELEASE
Click,
IMPORTSAFT_TIPOS
Grid1
IMPORTSAFT_TIPOS
ColumnCount = 3
FontSize = 8
AllowHeaderSizing = .F.
AllowRowSizing = .F.
DeleteMark = .F.
GridLines = 0
Height = 116
Highlight = .F.
HighlightRow = .F.
Left = 25
Panel = 1
RecordSource = "cs_lista_documentos"
RowHeight = 17
ScrollBars = 0
Top = 54
Width = 232
AllowAutoColumnFit = 2
Name = "Grid1"
Column1.FontSize = 8
Column1.Alignment = 2
Column1.ControlSource = "tipo"
Column1.Width = 52
Column1.ReadOnly = .T.
Column1.Name = "Column1"
Column2.FontSize = 8
Column2.ControlSource = "descricao"
Column2.Width = 134
Column2.ReadOnly = .T.
Column2.Name = "Column2"
Column3.FontSize = 8
Column3.Alignment = 2
Column3.ControlSource = "escolhido"
Column3.Width = 30
Column3.Sparse = .F.
Column3.Name = "Column3"
header
header
Header1
IMPORTSAFT_TIPOS.Grid1.Column1
AFontSize = 8
Alignment = 2
Caption = "Tipo"
Name = "Header1"
textbox
textbox
Text1
IMPORTSAFT_TIPOS.Grid1.Column1
FontSize = 8
Alignment = 2
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header
header
Header1
IMPORTSAFT_TIPOS.Grid1.Column2
FFontSize = 8
Alignment = 2
Caption = "Descri
Name = "Header1"
textbox
textbox
Text1
IMPORTSAFT_TIPOS.Grid1.Column2
wFontSize = 8
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header
header
Header1
IMPORTSAFT_TIPOS.Grid1.Column3
>FontSize = 8
Alignment = 2
Caption = "?"
Name = "Header1"
checkbox
checkbox
Check1
IMPORTSAFT_TIPOS.Grid1.Column3
Top = 35
Left = 18
Height = 17
Width = 60
Alignment = 0
Centered = .T.
Caption = ""
SpecialEffect = 1
Name = "Check1"
commandbutton
commandbutton
Command1
IMPORTSAFT_TIPOS
iTop = 180
Left = 96
Height = 25
Width = 80
FontSize = 8
Caption = "Co\<ntinuar"
Name = "Command1"
?PROCEDURE Click
p_decisao = .t.
thisform.Release
ENDPROC
P_DECISAO
THISFORM
RELEASE
Click,
commandbutton
commandbutton
Command2
IMPORTSAFT_TIPOS
iTop = 180
Left = 177
Height = 25
Width = 80
FontSize = 8
Caption = "\<Cancelar"
Name = "Command2"
?PROCEDURE Click
p_decisao = .f.
thisform.Release
ENDPROC
BArial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 0, 8, 5, 14, 11, 29, 3, 0
Label2
label
label
pTop = -1
Left = -1
Height = 31
Width = 285
BackColor = 0,128,192
BorderColor = 0,128,192
Name = "Shape1"
shape
shape
Shape1
IMPORTSAFT_TIPOS
AutoSize = .T.
FontBold = .T.
FontItalic = .T.
BackStyle = 0
Caption = "Tipos de documento"
Height = 17
Left = 9
Top = 7
Width = 117
ForeColor = 255,255,255
Name = "Label2"
_LEFT
Init,
importsaft2.scx
importsaft2.sct
importsaft_relat.scx
importsaft_relat.sct
importsaft.prg
c:\temp\
importsaft.fxp
..\shared\icons\
qpicon.ico
..\shared\classes\
clstxt.vcx
clstxt.vct
notok.gif
locate.bmp
alerta.gif
importsaft1.scx
importsaft1.sct
bigcross.png
importsaft_relat2.scx
importsaft_relat2.sct
importsaft_series.scx
importsaft_series.sct
importsaft_tipos.scx
importsaft_tipos.sct