Ola,
Estou fazendo as modificações para geracao do arquivo texto da RAIS, porem, a linha contem 523 caracteres, e, qdo mando compilar, da erro de falta de memória.
Fiz uma busca no GD, mas nao achei algo parecido, pelo menos neste caso especifico (geracao de arquivo txt).
Imagino que se eu fizer string's, e depois concatenar, resolvo, mas nunca usei isto.
Lembrando, estou em modo de desenvolvimento, nao estou executando o programa.
Alguma ideia que ajude?
Luciano
97

'/// INICIO MONTAGEM INFORMACAO REUMUNERACAO
Print #1, Format(Seq3, "000000"); Tab(7); Format(tbl!CNPJ_Empresa, "00000000000000"); Tab(21); Format(Prefixo, "00"); _
Tab(23); Format(TipoRegistro, "0"); Tab(24); Format(tblCadFunc!PIS_Num, "00000000000"); Tab(35); Format(tblCadFunc!Nome_Func, ">"); _
Tab(65); Format(tblCadFunc!Data_Nasc, "ddmmyyyy"); Tab(73); Format(tblCadFunc!Cod_Nac, "00"); Tab(75); IIf(tblCadFunc!Ano_Chegada <> "", Format(tblCadFunc!Ano_Chegada, "0000"), "0000"); _
Tab(79); Format(tblCadFunc!Cod_Instrucao, "0"); Tab(80); IIf(tblCadFunc!CPF <> "", Format(tblCadFunc!CPF, "00000000000"), "00000000000"); _
Tab(91); Format(tblCadFunc!CTPS_Num & tblCadFunc!CTPS_Serie, "00000000000"); Tab(102); Format(tblCadFunc!Adm_Data, "ddmmyyyy"); _
Tab(110); Format(tblCadFunc!Cod_TipoAdm, "0"); Tab(111); Format(tblCadFunc!Vr_Salario * 100, "000000000"); _
Tab(120); Format(tblCadFunc!Tipo_Salario, "0"); Tab(121); "44"; Tab(123); Format(tblCadFunc!Cod_CBO, "000000"); _
Tab(129); Format(tblCadFunc!Cod_VincAdm, "00"); Tab(131); IIf(tblCadFunc!Cod_Demissao <> "", Format(tblCadFunc!Cod_Demissao, "00"), "00"); _
Tab(133); IIf(tblCadFunc!Demitido_Data <> "", Format(tblCadFunc!Demitido_Data, "ddmm"), "0000"); _
Tab(137); IIf(Vr01 <> "", Format(Vr01, "000000000"), "000000000"); Tab(146); IIf(Vr02 <> "", Format(Vr02, "000000000"), "000000000"); Tab(155); IIf(Vr03 <> "", Format(Vr03, "000000000"), "000000000"); Tab(164); IIf(Vr04 <> "", Format(Vr04, "000000000"), "000000000"); Tab(173); IIf(Vr05 <> "", Format(Vr05, "000000000"), "000000000"); Tab(182); IIf(Vr06 <> "", Format(Vr06, "000000000"), "000000000"); Tab(191); IIf(vr07 <> "", Format(vr07, "000000000"), "000000000"); Tab(200); IIf(Vr08 <> "", Format(Vr08, "000000000"), "000000000"); Tab(209); IIf(Vr09 <> "", Format(Vr09, "000000000"), "000000000"); Tab(218); IIf(Vr10 <> "", Format(Vr10, "000000000"), "000000000"); Tab(227); IIf(Vr11 <> "", Format(Vr11, "000000000"), "000000000"); Tab(236); IIf(Vr12 <> "", Format(Vr12, "000000000"), "000000000"); Tab(245); Format(VrAdto13, "000000000"); Tab(254); Format(MesAdto13, "00"); Tab(256); Format(VrPgto13, "000000000"); Tab(265); Format(MesPgto13, "00"); _
Tab(267); Format(tblCadFunc!Cor, "0"); Tab(268); IIf(tblCadFunc!Deficiente = True, 1, 2); Tab(269); "2"; Tab(270); Format(v_vravisoprevio, "000000000"); Tab(279); Format(tblCadFunc!Sexo, "0"); _
Tab(280); Format(v_causa_01, "00"); Tab(282); Format(Format(v_datainicio_01, "ddmm"), "0000"); Tab(286); Format(Format(v_datafim_01, "ddmm"), "0000"); _
Tab(290); Format(v_causa_02, "00"); Tab(292); Format(Format(v_datainicio_02, "ddmm"), "0000"); Tab(296); Format(Format(v_datafim_02, "ddmm"), "0000"); _
Tab(300); Format(v_causa_03, "00"); Tab(302); Format(Format(v_datainicio_03, "ddmm"), "0000"); Tab(306); Format(Format(v_datafim_03, "ddmm"), "0000"); Tab(310); Format(v_totaldiasafast, "000"); _
Tab(313); Format(v_vr_ferias_indenizadas, "00000000"); Tab(321); Format(v_vr_bco_horas, "00000000"); Tab(329); Format(v_qtde_bco_horas, "00"); _
Tab(331); Format(v_vr_dissidio, "00000000"); Tab(339); Format(v_qtde_dissidio, "00"); Tab(341); Format(v_vr_gratificacao, "00000000"); Tab(349); Format(v_qtde_gratificacao, "00"); Tab(351); Format(v_vr_multa_fgts, "00000000")

... ainda nao esta terminado, mas da erro no tab(313)

This message has been edited. Last edited by: Luciano,

Bom, o codigo ta pronto, só não estou conseguindo montar uma string.
Poderiam dar uma dica?
Luciano

Tente montar a string e, depois, gravá-la.

Uma idéia:

Sub teste()
Dim sSaida As String

    sSaida = Format(Seq3, "000000") & Format(tbl!CNPJ_Empresa, "00000000000000") & Format(Prefixo, "00")
    sSaida = sSaida & Format(TipoRegistro, "0") & Format(tblCadFunc!PIS_Num, "00000000000") & Format(tblCadFunc!Nome_Func, ">")
    sSaida = sSaida & Format(tblCadFunc!Data_Nasc, "ddmmyyyy") & Format(tblCadFunc!Cod_Nac, "00")
    If tblCadFunc!Ano_Chegada <> "" Then
        sSaida = sSaida & Format(tblCadFunc!Ano_Chegada, "0000")
    Else
        sSaida = sSaida & "0000"
    End If
    sSaida = sSaida & Format(tblCadFunc!Cod_Instrucao, "0")
    If tblCadFunc!CPF <> "" Then
        sSaida = sSaida & Format(tblCadFunc!CPF, "00000000000")
    Else
        sSaida = sSaida & "00000000000"
    End If
    sSaida = sSaida & Format(tblCadFunc!CTPS_Num & tblCadFunc!CTPS_Serie, "00000000000") & Format(tblCadFunc!Adm_Data, "ddmmyyyy")
    sSaida = sSaida & Format(tblCadFunc!Cod_TipoAdm, "0") & Format(tblCadFunc!Vr_Salario * 100, "000000000")
    sSaida = sSaida & Format(tblCadFunc!Tipo_Salario, "0") & "44" & Format(tblCadFunc!Cod_CBO, "000000")
    sSaida = sSaida & Format(tblCadFunc!Cod_VincAdm, "00")
    If tblCadFunc!Cod_Demissao <> "" Then
        sSaida = sSaida & Format(tblCadFunc!Cod_Demissao, "00")
    Else
        sSaida = sSaida & "00"
    End If
    If tblCadFunc!Demitido_Data <> "" Then
        sSaida = sSaida & Format(tblCadFunc!Demitido_Data, "ddmm")
    Else
        sSaida = sSaida & "0000"
    End If
    If Vr01 <> "" Then
        sSaida = sSaida & Format(Vr01, "000000000")
    Else
        sSaida = sSaida & "000000000"
    End If
'...
' Repita para os outros campos
'...
    sSaida = sSaida & Format(v_vr_dissidio, "00000000") & Format(v_qtde_dissidio, "00") & Format(v_vr_gratificacao, "00000000")
    sSaida = sSaida & Format(v_qtde_gratificacao, "00") & Format(v_vr_multa_fgts, "00000000")
    
    Print #1, sSaida

End Sub

Ola Osmar,
Grato pela atencao!!!
Estou tentando fazer isto que vc me falou desde ontem, mas estou encontrando dificuldades, veja como estou tentando fazer:

Dim v_str_01_300 As String
v_str_01_300= Format(Seq3, "000000"); Tab(7); Format(tbl!CNPJ_Empresa, "00000000000000"); Tab(21); Format(Prefixo, "00"); _
Tab(23); Format(TipoRegistro, "0"); Tab(24); Format(tblCadFunc!PIS_Num, "00000000000"); Tab(35); Format(tblCadFunc!Nome_Func, ">"); _
Tab(65); Format(tblCadFunc!Data_Nasc, "ddmmyyyy"); Tab(73); Format(tblCadFunc!Cod_Nac, "00"); Tab(75); IIf(tblCadFunc!Ano_Chegada <> "", Format(tblCadFunc!Ano_Chegada, "0000"), "0000"); _
Tab(79); Format(tblCadFunc!Cod_Instrucao, "0"); Tab(80); IIf(tblCadFunc!CPF <> "", Format(tblCadFunc!CPF, "00000000000"), "00000000000"); _
Tab(91); Format(tblCadFunc!CTPS_Num & tblCadFunc!CTPS_Serie, "00000000000"); Tab(102); Format(tblCadFunc!Adm_Data, "ddmmyyyy"); _
Tab(110); Format(tblCadFunc!Cod_TipoAdm, "0"); Tab(111); Format(tblCadFunc!Vr_Salario * 100, "000000000"); _
Tab(120); Format(tblCadFunc!Tipo_Salario, "0"); Tab(121); "44"; Tab(123); Format(tblCadFunc!Cod_CBO, "000000"); _
Tab(129); Format(tblCadFunc!Cod_VincAdm, "00"); Tab(131); IIf(tblCadFunc!Cod_Demissao <> "", Format(tblCadFunc!Cod_Demissao, "00"), "00"); _
Tab(133); IIf(tblCadFunc!Demitido_Data <> "", Format(tblCadFunc!Demitido_Data, "ddmm"), "0000"); _
Tab(137); IIf(Vr01 <> "", Format(Vr01, "000000000"), "000000000"); Tab(146); IIf(Vr02 <> "", Format(Vr02, "000000000"), "000000000"); Tab(155); IIf(Vr03 <> "", Format(Vr03, "000000000"), "000000000"); Tab(164); IIf(Vr04 <> "", Format(Vr04, "000000000"), "000000000"); Tab(173); IIf(Vr05 <> "", Format(Vr05, "000000000"), "000000000"); Tab(182); IIf(Vr06 <> "", Format(Vr06, "000000000"), "000000000"); Tab(191); IIf(vr07 <> "", Format(vr07, "000000000"), "000000000"); Tab(200); IIf(Vr08 <> "", Format(Vr08, "000000000"), "000000000"); Tab(209); IIf(Vr09 <> "", Format(Vr09, "000000000"), "000000000"); Tab(218); IIf(Vr10 <> "", Format(Vr10, "000000000"), "000000000"); Tab(227); IIf(Vr11 <> "", Format(Vr11, "000000000"), "000000000"); Tab(236); IIf(Vr12 <> "", Format(Vr12, "000000000"), "000000000"); Tab(245); Format(VrAdto13, "000000000"); Tab(254); Format(MesAdto13, "00"); Tab(256); Format(VrPgto13, "000000000"); Tab(265); Format(MesPgto13, "00"); _
Tab(267); Format(tblCadFunc!Cor, "0"); Tab(268); IIf(tblCadFunc!Deficiente = True, 1, 2); Tab(269); "2"; Tab(270); Format(v_vravisoprevio, "000000000"); Tab(279); Format(tblCadFunc!Sexo, "0"); _
Tab(280); Format(v_causa_01, "00"); Tab(282); Format(Format(v_datainicio_01, "ddmm"), "0000"); Tab(286); Format(Format(v_datafim_01, "ddmm"), "0000"); _
Tab(290); Format(v_causa_02, "00"); Tab(292); Format(Format(v_datainicio_02, "ddmm"), "0000"); Tab(296); Format(Format(v_datafim_02, "ddmm"), "0000"); _
Tab(300); Format(v_causa_03, "00"); Tab(302); Format(Format(v_datainicio_03, "ddmm"), "0000"); Tab(306); Format(Format(v_datafim_03, "ddmm"), "0000"); Tab(310); Format(v_totaldiasafast, "000")

Mas da erro:
Erro de compilação:
Era esperado: fim da instrução
... o erro é no negrito abaixo
v_str_01_300= Format(Seq3, "000000") ;
Sei que o erro está na montagem da string, mas nao sei como acertar.
Veja como esta a linha toda, depois de pronta:

Print #1, Format(Seq3, "000000"); Tab(7); Format(tbl!CNPJ_Empresa, "00000000000000"); Tab(21); Format(Prefixo, "00"); _
Tab(23); Format(TipoRegistro, "0"); Tab(24); Format(tblCadFunc!PIS_Num, "00000000000"); Tab(35); Format(tblCadFunc!Nome_Func, ">"); _
Tab(65); Format(tblCadFunc!Data_Nasc, "ddmmyyyy"); Tab(73); Format(tblCadFunc!Cod_Nac, "00"); Tab(75); IIf(tblCadFunc!Ano_Chegada <> "", Format(tblCadFunc!Ano_Chegada, "0000"), "0000"); _
Tab(79); Format(tblCadFunc!Cod_Instrucao, "0"); Tab(80); IIf(tblCadFunc!CPF <> "", Format(tblCadFunc!CPF, "00000000000"), "00000000000"); _
Tab(91); Format(tblCadFunc!CTPS_Num & tblCadFunc!CTPS_Serie, "00000000000"); Tab(102); Format(tblCadFunc!Adm_Data, "ddmmyyyy"); _
Tab(110); Format(tblCadFunc!Cod_TipoAdm, "0"); Tab(111); Format(tblCadFunc!Vr_Salario * 100, "000000000"); _
Tab(120); Format(tblCadFunc!Tipo_Salario, "0"); Tab(121); "44"; Tab(123); Format(tblCadFunc!Cod_CBO, "000000"); _
Tab(129); Format(tblCadFunc!Cod_VincAdm, "00"); Tab(131); IIf(tblCadFunc!Cod_Demissao <> "", Format(tblCadFunc!Cod_Demissao, "00"), "00"); _
Tab(133); IIf(tblCadFunc!Demitido_Data <> "", Format(tblCadFunc!Demitido_Data, "ddmm"), "0000"); _
Tab(137); IIf(Vr01 <> "", Format(Vr01, "000000000"), "000000000"); Tab(146); IIf(Vr02 <> "", Format(Vr02, "000000000"), "000000000"); Tab(155); IIf(Vr03 <> "", Format(Vr03, "000000000"), "000000000"); Tab(164); IIf(Vr04 <> "", Format(Vr04, "000000000"), "000000000"); Tab(173); IIf(Vr05 <> "", Format(Vr05, "000000000"), "000000000"); Tab(182); IIf(Vr06 <> "", Format(Vr06, "000000000"), "000000000"); Tab(191); IIf(vr07 <> "", Format(vr07, "000000000"), "000000000"); Tab(200); IIf(Vr08 <> "", Format(Vr08, "000000000"), "000000000"); Tab(209); IIf(Vr09 <> "", Format(Vr09, "000000000"), "000000000"); Tab(218); IIf(Vr10 <> "", Format(Vr10, "000000000"), "000000000"); Tab(227); IIf(Vr11 <> "", Format(Vr11, "000000000"), "000000000"); Tab(236); IIf(Vr12 <> "", Format(Vr12, "000000000"), "000000000"); Tab(245); Format(VrAdto13, "000000000"); Tab(254); Format(MesAdto13, "00"); Tab(256); Format(VrPgto13, "000000000"); Tab(265); Format(MesPgto13, "00"); _
Tab(267); Format(tblCadFunc!Cor, "0"); Tab(268); IIf(tblCadFunc!Deficiente = True, 1, 2); Tab(269); "2"; Tab(270); Format(v_vravisoprevio, "000000000"); Tab(279); Format(tblCadFunc!Sexo, "0"); _
Tab(280); Format(v_causa_01, "00"); Tab(282); Format(Format(v_datainicio_01, "ddmm"), "0000"); Tab(286); Format(Format(v_datafim_01, "ddmm"), "0000"); _
Tab(290); Format(v_causa_02, "00"); Tab(292); Format(Format(v_datainicio_02, "ddmm"), "0000"); Tab(296); Format(Format(v_datafim_02, "ddmm"), "0000"); _
Tab(300); Format(v_causa_03, "00"); Tab(302); Format(Format(v_datainicio_03, "ddmm"), "0000"); Tab(306); Format(Format(v_datafim_03, "ddmm"), "0000"); Tab(310); Format(v_totaldiasafast, "000"); _
Tab(313); Format(v_vr_ferias_indenizadas, "00000000"); Tab(321); Format(v_vr_bco_horas, "00000000"); Tab(329); Format(v_qtde_bco_horas, "00"); _
Tab(331); Format(v_vr_dissidio, "00000000"); Tab(339); Format(v_qtde_dissidio, "00"); Tab(341); Format(v_vr_gratificacao, "00000000"); Tab(349); Format(v_qtde_gratificacao, "00"); Tab(351); Format(v_vr_multa_fgts, "00000000"); _
Tab(359); IIf(v_vr250 > 0, Format(tblCadFunc!cnpj_sindicato, "00000000000000"), "00000000000000"); Tab(373); Format(v_vr250, "00000000"); _
Tab(381); 0, Format("00000000000000000000"); _
Tab(403); IIf(v_vr213 + v_vr204 > 0, Format(tblCadFunc!cnpj_sindicato, "00000000000000"), "00000000000000"); Tab(417); Format(v_vr213 + v_vr204, "00000000"); _
Tab(425); IIf(v_vr208 + v_vr203 > 0, Format(tblCadFunc!cnpj_sindicato, "00000000000000"), "00000000000000"); Tab(439); Format(v_vr208 + v_vr203, "00000000"); _
Tab(447); IIf(v_vr209 > 0, Format(tblCadFunc!cnpj_sindicato, "00000000000000"), "00000000000000"); Tab(461); Format(v_vr209, "00000000"); _
Tab(469); Format(tblCadFunc!codmunic_local, "0000000"); _
Tab(476); IIf(hr01 <> "", Format(hr01, "000"), "000"); Tab(479); IIf(hr02 <> "", Format(hr02, "000"), "000"); Tab(482); IIf(hr03 <> "", Format(hr03, "000"), "000"); Tab(485); IIf(hr04 <> "", Format(hr04, "000"), "000"); Tab(488); IIf(hr05 <> "", Format(hr05, "000"), "000"); Tab(491); IIf(hr06 <> "", Format(hr06, "000"), "000"); Tab(494); IIf(hr07 <> "", Format(vr07, "000"), "000"); Tab(497); IIf(hr08 <> "", Format(hr08, "000"), "000"); Tab(500); IIf(hr09 <> "", Format(hr09, "000"), "000"); Tab(503); IIf(hr10 <> "", Format(hr10, "000"), "000"); Tab(506); IIf(hr11 <> "", Format(hr11, "000"), "000"); Tab(509); IIf(hr12 <> "", Format(hr12, "000"), "000"); _
Tab(512); Format(tblCadFunc!Cod_Chapa, "000000000000")

Luciano

Pensei em dividir em 3 string's a linha acima.

Monte a string aos poucos, como mostrei anteriormente. Dá um pouco mais de trabalho mas o controle é seu. Se precisar alterar alguma coisa, fica BEM mais fácil (idem para encontrar erros).

Evite o uso de IIf, monte blocos If...Then...Else.

Blz Osmar,
Vou comecar a mexer com isto, qdo terminar, retorno.
Luciano

Ola Osmar,
Apenas uma duvida.
Do jeito que vc me passou, terei que tirar todos os tab?
Luciano

O posicionamento deve ser feito pela formatação (veja o manual) e não por tabulação. Normalmente os campos têm tamanhos definidos, sendo que os campos núméricos são preenchidos com zeros à esquerda e os campos texto com espaços à direita até atingir o tamanho desejado.

Com certeza Osmar,
Mas como esse codigo eu havia aproveitado da 1a. versao que fiz, tinha feitos estes "ajustes técnicos" (gambiarra), agora, ja que vou mexer, vou aproveitar para arrumar.
Grato
Luciano

Osmar,
Uma pequena duvida.
Porque o recordset abaixo, quando solicito algum campo, ele diz que campo nao existe?

Set tblCadFunc = CurrentDb.OpenRecordset("SELECT tbl_CadFunc_01.*, tbl_CadFunc_02.*, tbl_CadFunc_01.IDChapa, tbl_CadFunc_01.Cod_Empresa, tbl_CadFunc_03.*, tbl_CadFunc_03.Adm_Data, tbl_CadFunc_03.Cod_TipoAdm, tbl_CadSalario.*, tbl_CadCargo.*, tbl_CadFunc_04.*, tbl_CadSindicato.*, tbl_CadLocal.* " & _
"FROM tbl_CadLocal INNER JOIN (tbl_CadSindicato INNER JOIN (tbl_CadSalario INNER JOIN (((tbl_CadFunc_01 INNER JOIN tbl_CadFunc_02 ON tbl_CadFunc_01.IDChapa = tbl_CadFunc_02.IDChapa) INNER JOIN (tbl_CadCargo INNER JOIN tbl_CadFunc_03 ON tbl_CadCargo.Cod_Cargo = tbl_CadFunc_03.Cod_Cargo) ON tbl_CadFunc_01.IDChapa = tbl_CadFunc_03.IDChapa) INNER JOIN tbl_CadFunc_04 ON tbl_CadFunc_01.IDChapa = tbl_CadFunc_04.IDChapa) ON tbl_CadSalario.Cod_Salario = tbl_CadFunc_03.Cod_Salario) ON tbl_CadSindicato.Cod_Sindicato = tbl_CadFunc_03.Cod_Sindicato) ON tbl_CadLocal.Cod_Local = tbl_CadFunc_03.Cod_Local " & _
"WHERE tbl_CadFunc_01.Cod_Empresa = " & Forms!frm_Outros_RAIS!Cod_Empresa & " AND tbl_CadFunc_03.Adm_Data <= # " & tblparam!Param_UltimoDia & " # " & _
"ORDER BY tbl_CadFunc_01.Nome_Func;")

Como uso muitos campos das tabelas, usei tabela.* para trazer tudo, mas da esse tipo de erro.
Luciano

Mesma sugestão que acima: crie uma variável string e vá montando a linha da consulta (quebre as linhas se está copiando o SQL de uma consulta montada usando o construtor). Fica BEM mais fácil de visualizar.

Dim strSQL As String
strSQL = "SELECT tbl_CadFunc_01.*, tbl_CadFunc_02.*, tbl_CadFunc_01.IDChapa, tbl_CadFunc_01.Cod_Empresa, tbl_CadFunc_03.*,  "
strSQL = strSQL & "tbl_CadFunc_03.Adm_Data, tbl_CadFunc_03.Cod_TipoAdm, tbl_CadSalario.*, tbl_CadCargo.*, "
strSQL = strSQL & "tbl_CadFunc_04.*, tbl_CadSindicato.*, tbl_CadLocal.* " 

Sinceramente, não tenho paciência para ficar "passeando" com a barra de rolagem para ler código...

Osmar,
Grato pela atencao!!!
Consegui validar o arquivo, só falta o RH fazer os acertos necessarios, mas, minha parte ja ta feita, gracas a sua ajuda.

Quanto a quebrar o recordset, ja tinha pensado nisso tb!!!

Luciano