OLÁ COLEGAS
Gostaria de ajuda;
Quando mando gerar o arquivo txt do sped fiscal, os blocos C100, C170 e C190, gera da seguinte forma:
|C100|0|1|35587112000175|55|00|001|000124995|25140435587112000175550010001249951060292571|25042014|01052014|172,77|2|||172,77|9|||||||||||||
|C100|0|1|41080722000504|55|00|001|000055343|25140441080722000504550010000553431000553434|28042014|01052014|13145,50|2|||13145,50|9|||||||||||||
|C100|0|1|02437279000109|55|00|001|000019676|25140502437279000109550010000196761082620074|05052014|05052014|7050,00|2|||7050,00|9|||||||||||||
|C170|1|12||2,00000|CX|26,00||0|010|1403|||||||||||||||||||||||||||
|C170|2|6||2,00000|CX|20,00||0|010|1403|||||||||||||||||||||||||||
|C170|3|7||2,00000|CX|24,00||0|010|1403|||||||||||||||||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
|C190|010|1403||20,00|0,00|0,00|0,00|0,00|20,00|0,00||
|C190|010|1403||24,00|0,00|0,00|0,00|0,00|24,00|0,00||
como eu faço para gerar de acordo com txt do sped fiscal
SPED Fiscal TXT
Moderador: Moderadores
-
JUDIVAN CONTABIL
- Usuário Nível 2
- Mensagens: 55
- Registrado em: 20 Mai 2011 07:42
- Localização: IMACULADA-PB
SPED FISCAL TXT
Judivan, não entendi muito bem sua dúvida, poderia fornecer mais detalhes do problema?
[]´s
[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
JUDIVAN CONTABIL
- Usuário Nível 2
- Mensagens: 55
- Registrado em: 20 Mai 2011 07:42
- Localização: IMACULADA-PB
SPED FISCAL TXT
É porque no SPED FISCAL o formato do txt é o seguinte:
C100|0|1|35587112000175|55|00|001|000124995|25140435587112000175550010001249951060292571|25042014|01052014|172,77|2|||172,77|9|||||||||||||
|C170|1|12||2,00000|CX|26,00||0|010|1403|||||||||||||||||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
|C100|0|1|41080722000504|55|00|001|000055343|25140441080722000504550010000553431000553434|28042014|01052014|13145,50|2|||13145,50|9|||||||||||||
|C170|1|12||2,00000|CX|26,00||0|010|1403|||||||||||||||||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
|C100|0|1|02437279000109|55|00|001|000019676|25140502437279000109550010000196761082620074|05052014|05052014|7050,00|2|||7050,00|9|||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
e quando eu gero o txt, fica diferente ou seja fica assim:
|C100|0|1|35587112000175|55|00|001|000124995|25140435587112000175550010001249951060292571|25042014|01052014|172,77|2|||172,77|9|||||||||||||
|C100|0|1|41080722000504|55|00|001|000055343|25140441080722000504550010000553431000553434|28042014|01052014|13145,50|2|||13145,50|9|||||||||||||
|C100|0|1|02437279000109|55|00|001|000019676|25140502437279000109550010000196761082620074|05052014|05052014|7050,00|2|||7050,00|9|||||||||||||
|C170|1|12||2,00000|CX|26,00||0|010|1403|||||||||||||||||||||||||||
|C170|2|6||2,00000|CX|20,00||0|010|1403|||||||||||||||||||||||||||
|C170|3|7||2,00000|CX|24,00||0|010|1403|||||||||||||||||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
|C190|010|1403||20,00|0,00|0,00|0,00|0,00|20,00|0,00||
|C190|010|1403||24,00|0,00|0,00|0,00|0,00|24,00|0,00||
C100|0|1|35587112000175|55|00|001|000124995|25140435587112000175550010001249951060292571|25042014|01052014|172,77|2|||172,77|9|||||||||||||
|C170|1|12||2,00000|CX|26,00||0|010|1403|||||||||||||||||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
|C100|0|1|41080722000504|55|00|001|000055343|25140441080722000504550010000553431000553434|28042014|01052014|13145,50|2|||13145,50|9|||||||||||||
|C170|1|12||2,00000|CX|26,00||0|010|1403|||||||||||||||||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
|C100|0|1|02437279000109|55|00|001|000019676|25140502437279000109550010000196761082620074|05052014|05052014|7050,00|2|||7050,00|9|||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
e quando eu gero o txt, fica diferente ou seja fica assim:
|C100|0|1|35587112000175|55|00|001|000124995|25140435587112000175550010001249951060292571|25042014|01052014|172,77|2|||172,77|9|||||||||||||
|C100|0|1|41080722000504|55|00|001|000055343|25140441080722000504550010000553431000553434|28042014|01052014|13145,50|2|||13145,50|9|||||||||||||
|C100|0|1|02437279000109|55|00|001|000019676|25140502437279000109550010000196761082620074|05052014|05052014|7050,00|2|||7050,00|9|||||||||||||
|C170|1|12||2,00000|CX|26,00||0|010|1403|||||||||||||||||||||||||||
|C170|2|6||2,00000|CX|20,00||0|010|1403|||||||||||||||||||||||||||
|C170|3|7||2,00000|CX|24,00||0|010|1403|||||||||||||||||||||||||||
|C190|010|1403||26,00|0,00|0,00|0,00|0,00|26,00|0,00||
|C190|010|1403||20,00|0,00|0,00|0,00|0,00|20,00|0,00||
|C190|010|1403||24,00|0,00|0,00|0,00|0,00|24,00|0,00||
SPED FISCAL TXT
Ah entendi...
é q vc esta gerando primeiro os C100 cabeçalhos depois os C170 e depois os C190, ... o q vc tem q fazer é o seguinte, não sei como vc armazena os dados ai, suponhamos q vc grave suas notas fiscais em 2 tabelas, 01 para o cabeçalho e outra para os itens..., se for, vc tem q posicionar no primeiro registro do cabeçalho q satisfaça a condição do periodo q vc vai gerar o SPED e a partir dele gerar os itens e o agrupamento CSTXCFOPXICMS (C190), Exemplo (a grosso modo):
Nota 123 Total R$ 36,00
Itens da nota 123
ITEM A CFOP 1102 Valor 11,00 CST 000
ITEM B CFOP 1102 Valor 12,00 CST 000
ITEM C CFOP 1403 Valor 13,00 CST 060
Ai vc para no registro da nota 123 e gera o C100 dela, AI ANTES DE IR PARA A PROXIMA NOTA VC GERA OS C170 E OS C190, VEJA::
C170 ITEM A
C170 ITEM B
C170 ITEM C
C190 23,00 Referente CFOP1102 com CST 000
C190 13,00 Referente CFOP 1403 com CST 060
DEPOIS VC VAI PARA A PROXIMA NOTA E FAZ A MESMA LÓGICA ACIMA.
Agora se vc armazena de forma única as notas, então terá q tratar a situação exposta acima conforme sua realidade, exemplo
Estou Nota 123 (ai na mesma tabela tenho os itens)
nRegAtual := Tabela->(recno())
Ai vc pode criar um indice temporario filtrando a Nota 123 do periodo X do fornecedor Z
Ai gera os C170 e os C190
Depois reposiciona no nRegAtual.
Não sei se conseguiu entender, da uma analisada ai e qualquer coisa retorna aqui pra entendermos melhor tua realidade e ver o q conseguimos ajudar.
[]´s
é q vc esta gerando primeiro os C100 cabeçalhos depois os C170 e depois os C190, ... o q vc tem q fazer é o seguinte, não sei como vc armazena os dados ai, suponhamos q vc grave suas notas fiscais em 2 tabelas, 01 para o cabeçalho e outra para os itens..., se for, vc tem q posicionar no primeiro registro do cabeçalho q satisfaça a condição do periodo q vc vai gerar o SPED e a partir dele gerar os itens e o agrupamento CSTXCFOPXICMS (C190), Exemplo (a grosso modo):
Nota 123 Total R$ 36,00
Itens da nota 123
ITEM A CFOP 1102 Valor 11,00 CST 000
ITEM B CFOP 1102 Valor 12,00 CST 000
ITEM C CFOP 1403 Valor 13,00 CST 060
Ai vc para no registro da nota 123 e gera o C100 dela, AI ANTES DE IR PARA A PROXIMA NOTA VC GERA OS C170 E OS C190, VEJA::
C170 ITEM A
C170 ITEM B
C170 ITEM C
C190 23,00 Referente CFOP1102 com CST 000
C190 13,00 Referente CFOP 1403 com CST 060
DEPOIS VC VAI PARA A PROXIMA NOTA E FAZ A MESMA LÓGICA ACIMA.
Agora se vc armazena de forma única as notas, então terá q tratar a situação exposta acima conforme sua realidade, exemplo
Estou Nota 123 (ai na mesma tabela tenho os itens)
nRegAtual := Tabela->(recno())
Ai vc pode criar um indice temporario filtrando a Nota 123 do periodo X do fornecedor Z
Ai gera os C170 e os C190
Depois reposiciona no nRegAtual.
Não sei se conseguiu entender, da uma analisada ai e qualquer coisa retorna aqui pra entendermos melhor tua realidade e ver o q conseguimos ajudar.
[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
JUDIVAN CONTABIL
- Usuário Nível 2
- Mensagens: 55
- Registrado em: 20 Mai 2011 07:42
- Localização: IMACULADA-PB
SPED FISCAL TXT
É dessa forma que eu uso, a onde está o erro:
Código: Selecionar todos
**********************************************************
Function GeraBlocoC()
Local x ,nOk := 0
Local cPesq, _cPesq
Cen_tra('Selecionando Notas......')
SELECT ENTRADA
*SET ORDER TO 1
* ENTRADA->(DBGOTOP())
Index on PERIODO+DATA to ENTRADA1
GO TOP
SEEK M->vMes
DO WHILE (PERIODO=M->vMes)
SELECT NOTA
*Index on PERIODO+DATA TO (M->CAMINHO+"\"+M->CODIGO+"\NOTA1")
Index on PERIODO+DATA TO NOTA1
DBSETORDER(1)
Sele C100
Append Blank
Repla C100->Reg With 'C100'
Repla C100->IndOper With ALLTRIM(entrada->CONTA) //indicador do tipo de opercao->0-entrada e 1-saida
Repla C100->IndEmit With ENTRADA->IND_EMIT // Ver
Repla C100->CodPart With ALLTRIM(STRZERO(Val(LimpaStr(ENTRADA->CNPJ_CPF)),14))
Repla C100->CodSit With '00'
Repla C100->CodMod With entrada->COD_MOD
Repla C100->Ser With entrada->serie
Repla C100->NumDoc With StrZero(val(entrada->nota),9)
Repla C100->chvnfe With entrada->CHV_NFE
Repla C100->dtdoc With entrada->d_doc
Repla C100->Dtes With entrada->(LimpaStr(DATA))
Repla C100->vldoc With entrada->VL_CONTABI
Repla C100->indpagto With entrada->IND_PGTO
*Repla C100->vldesc With entrada->vlr_Desco //
*Repla C100->vlabatnt With entrada->
Repla C100->vlmerc With entrada->VL_CONTABI
Repla C100->indfrt With entrada->IND_FRT //
*Repla C100->vlfrt With entrada-> //
*Repla C100->vlSeg With entrada->
*Repla C100->vloutda With entrada->ValorOutro
Repla C100->vlbcicms With entrada->B_CALCULO
Repla C100->vlicms With entrada->VL_ICMS
Repla C100->vlbcicmsst With entrada->VLSUBT
Repla C100->vlicmsst With entrada->IMPSUBT
Repla C100->vlipi With entrada->IPI
*Repla C100->vlpis With entrada->
*Repla C100->vlcofins With entrada->
*Repla C100->vlpisst With entrada->
*Repla C100->vlconfisst With entrada->
Sele entrada
cTpoRegUF := entrada->UF+Iif(C100->IndEmit=='0','E',"S")
//--- JAFFILTRO
cPesq := C100->CodPart+C100->NumDoc+C100->Ser
Skip+1
*CLOSE ENTRADA
Enddo
*******************************
SELECT NOTA
NOTA->(DBGOTOP())
*Index on PERIODO+DATA TO (M->CAMINHO+"\"+M->CODIGO+"\NOTA1")
Index on PERIODO+DATA TO NOTA1
*GO TOP
SEEK M->vMes
DO WHILE (PERIODO=M->vMes)
IF TIPO_ES="E"
Sele C170
Append Blank
Repla C170->Reg With 'C170'
Repla C170->numitem With Alltrim(str(nota->nr_item))
Repla C170->Coditem With Alltrim(str((nota->codigo)))
Repla C170->descricao With Alltrim(nota->desc_compl)
Repla C170->qtd With nota->quant_unid
Repla C170->unid With Alltrim(nota->unid_med)
Repla C170->vlitem With nota->vlr_item //
Repla C170->vldesc With nota->vlr_desc
Repla C170->indmov With nota->ind_movi
Repla C170->csticms With nota->cstr_icms
Repla C170->cfop With LimpaStr(nota->operacao) //
Repla C170->codnat With ""
Repla C170->vlbcicms With nota->vlr_bc_icm
Repla C170->Aliqicms With nota->aliq_icmnf
Repla C170->vlicms With nota->vlr_icms
Repla C170->vlbcicmsst With nota->vlrbcicmst //
Repla C170->aliqst With nota->aliq_stnf
Repla C170->vlicmsst With nota->vlr_icm_st
Repla C170->indapur With nota->ind_apura //
Repla C170->cstipi With nota->cst_ipinf //
Repla C170->codenq With nota->cod_enqnf //
Repla C170->vlbcipi With nota->vlr_bc_ipi //
Repla C170->aliqipi With nota->aliq_ipinf
Repla C170->vlipi With nota->vlr_ipi //
Repla C170->cstpis With nota->cst_pisnf //
Repla C170->vlbcpis With nota->vlr_bc_pis //
Repla C170->aliqpis With nota->aliq_pisnf //
Repla C170->quantbcpis With nota->q_bc_pis //
Repla C170->aliqpis With nota->aliqpisr
Repla C170->vlpis With nota->vlr_pis //
Repla C170->cstcofins With nota->cst_cofinf //
Repla C170->vlbcconfis With nota->vlr_bc_cof //
Repla C170->aliqconfis With nota->aliq_cofin //
Repla C170->qtdbcconfi With nota->quan_bc_co //
Repla C170->aliqconfis With nota->aliqcofins
Repla C170->vlcofins With nota->vlr_cofins //
Repla C170->codcta With nota->cod_ctanf
Repla C170->JAFFiltro With nota->_cPesq
Select NOTA
ENDIF
*Skip
*Enddo
NOTA->(DBSKIP())
ENDDO
**********************************************************SPED FISCAL TXT
O erro esta nas linha 57 e 59, observe q vc vai para proxima nota (SKIP) no mesmo laço 59 (ENDDO), ou seja vc esta fazendo todos os C100 pra depois ir para o C170
Vc tem q antes de fazer o skip na nota fazer os c170 dessa nota e os c190 pra depois pular pra próxima...
Veja abaixo o teu código q eu dei uma reformulada pra vc entender a lógica, mas perceba q não esta concluído, vc como conhecedor das tabelas, estrutura de campos etc vai conseguir basear agora e fazer a alteração necessária.
Vc tem q antes de fazer o skip na nota fazer os c170 dessa nota e os c190 pra depois pular pra próxima...
Veja abaixo o teu código q eu dei uma reformulada pra vc entender a lógica, mas perceba q não esta concluído, vc como conhecedor das tabelas, estrutura de campos etc vai conseguir basear agora e fazer a alteração necessária.
Código: Selecionar todos
**********************************************************
Function GeraBlocoC()
Local x ,nOk := 0
Local cPesq, _cPesq
Cen_tra('Selecionando Notas......')
SELECT ENTRADA
Index on PERIODO+DATA to ENTRADA1
GO TOP
SEEK M->vMes
DO WHILE (PERIODO=M->vMes)
SELECT NOTA
*Index on PERIODO+DATA TO (M->CAMINHO+"\"+M->CODIGO+"\NOTA1")
Index on PERIODO+DATA TO NOTA1
DBSETORDER(1)
Sele C100
Append Blank
Repla C100->Reg With 'C100'
Repla C100->IndOper With ALLTRIM(entrada->CONTA) //indicador do tipo de opercao->0-entrada e 1-saida
Repla C100->IndEmit With ENTRADA->IND_EMIT // Ver
Repla C100->CodPart With ALLTRIM(STRZERO(Val(LimpaStr(ENTRADA->CNPJ_CPF)),14))
Repla C100->CodSit With '00'
Repla C100->CodMod With entrada->COD_MOD
Repla C100->Ser With entrada->serie
Repla C100->NumDoc With StrZero(val(entrada->nota),9)
Repla C100->chvnfe With entrada->CHV_NFE
Repla C100->dtdoc With entrada->d_doc
Repla C100->Dtes With entrada->(LimpaStr(DATA))
Repla C100->vldoc With entrada->VL_CONTABI
Repla C100->indpagto With entrada->IND_PGTO
Repla C100->vlmerc With entrada->VL_CONTABI
Repla C100->indfrt With entrada->IND_FRT //
Repla C100->vlbcicms With entrada->B_CALCULO
Repla C100->vlicms With entrada->VL_ICMS
Repla C100->vlbcicmsst With entrada->VLSUBT
Repla C100->vlicmsst With entrada->IMPSUBT
Repla C100->vlipi With entrada->IPI
Sele entrada
cTpoRegUF := entrada->UF+Iif(C100->IndEmit=='0','E',"S")
//--- JAFFILTRO
cPesq := C100->CodPart+C100->NumDoc+C100->Ser
//--> Aki vc tem q fazer os itens desta nota q vc incluiu no C100
//--> Tipo eu peguei o código q estava ap¢s o ENDDO e coloquei aki pra vc ter uma ideia,
//--> como não sei exatamente como estao as informações na tabela apenas coloquei pra vc perceber
SELECT NOTA
NOTA->(DBGOTOP())
//--> aki vc tem q filtrar a nota acima ENTRADA->Nota pra jogar os itens (C170) dela
DO WHILE //--> FA€A ENQUANTO FOR OS ITENS DA NOTA ACIMA DO C100
IF TIPO_ES="E"
Sele C170
Append Blank
Repla C170->Reg With 'C170'
Repla C170->numitem With Alltrim(str(nota->nr_item))
Repla C170->Coditem With Alltrim(str((nota->codigo)))
Repla C170->descricao With Alltrim(nota->desc_compl)
Repla C170->qtd With nota->quant_unid
Repla C170->unid With Alltrim(nota->unid_med)
Repla C170->vlitem With nota->vlr_item //
Repla C170->vldesc With nota->vlr_desc
Repla C170->indmov With nota->ind_movi
Repla C170->csticms With nota->cstr_icms
Repla C170->cfop With LimpaStr(nota->operacao) //
Repla C170->codnat With ""
Repla C170->vlbcicms With nota->vlr_bc_icm
Repla C170->Aliqicms With nota->aliq_icmnf
Repla C170->vlicms With nota->vlr_icms
Repla C170->vlbcicmsst With nota->vlrbcicmst //
Repla C170->aliqst With nota->aliq_stnf
Repla C170->vlicmsst With nota->vlr_icm_st
Repla C170->indapur With nota->ind_apura //
Repla C170->cstipi With nota->cst_ipinf //
Repla C170->codenq With nota->cod_enqnf //
Repla C170->vlbcipi With nota->vlr_bc_ipi //
Repla C170->aliqipi With nota->aliq_ipinf
Repla C170->vlipi With nota->vlr_ipi //
Repla C170->cstpis With nota->cst_pisnf //
Repla C170->vlbcpis With nota->vlr_bc_pis //
Repla C170->aliqpis With nota->aliq_pisnf //
Repla C170->quantbcpis With nota->q_bc_pis //
Repla C170->aliqpis With nota->aliqpisr
Repla C170->vlpis With nota->vlr_pis //
Repla C170->cstcofins With nota->cst_cofinf //
Repla C170->vlbcconfis With nota->vlr_bc_cof //
Repla C170->aliqconfis With nota->aliq_cofin //
Repla C170->qtdbcconfi With nota->quan_bc_co //
Repla C170->aliqconfis With nota->aliqcofins
Repla C170->vlcofins With nota->vlr_cofins //
Repla C170->codcta With nota->cod_ctanf
Repla C170->JAFFiltro With nota->_cPesq
Select NOTA
ENDIF
NOTA->(DBSKIP())
ENDDO
//--> AI SIM APOS TER TERMINADO OS ITENS DA NOTA VC VAI PRA PROXIMA NOTA NA TABELA ENTRADA
Skip
Enddo
RETURN NIL
**********************************************************Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
JUDIVAN CONTABIL
- Usuário Nível 2
- Mensagens: 55
- Registrado em: 20 Mai 2011 07:42
- Localização: IMACULADA-PB
SPED FISCAL TXT
Algum outro colega poderia revisar o código pra ver o q estaria errado, pois até onde vi seria o q mencionei.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop
Celular Android/iOS Windev Mobile
WEB Windev Web
Sejamos gratos a Deus.
-
rubens
- Colaborador
- Mensagens: 1520
- Registrado em: 16 Ago 2003 09:05
- Localização: Nova Xavantina - MT
SPED FISCAL TXT
Acredito que a logica tá correta Fladimir... o colega Josivam poderia compactar o código pra ficar mais fácil analisar... mas como você disse para ele primeiro pega os dados de uma c100, depois filtra os c170 dessa c100 e depois os c190.. só depois disso que volta no c100 e pula o registro...
Tipo assim...
Tipo assim...
Código: Selecionar todos
Sele c100
append blank
Repla C100->Reg With 'C100'
Repla C100->IndOper With ALLTRIM(entrada->CONTA)
Repla C100->Numero With cNumero
Sele c170
Set Filter to itensdoc170 = cNumero do C100
append blank
Repla c170->Reg With 'C170'
Sele c190
Set Filter to itensdoc190 = cNumero do C100
append blank
Repla c190->Reg With 'C170'
Sele c100
dbskip()
"Eu e minha casa servimos ao Senhor e você 
"
"-
Mário Isa
- Usuário Nível 4
- Mensagens: 907
- Registrado em: 07 Jul 2004 13:54
- Localização: Ilha Solteira-sp
SPED FISCAL TXT
No caso em pauta o colega está fazendo somente das notas de entrada ?
Ou as de saída também ?
E os cupons fiscais ? também tem que incluir ?
Mário
Ou as de saída também ?
E os cupons fiscais ? também tem que incluir ?
Mário
-
JoséQuintas
- Administrador
- Mensagens: 20416
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
- Curtiram: 1 vez
SPED Fiscal TXT
Pra facilitar essas coisas, eu faço assim, supondo que fossem NFs, contendo pedidos, que contém produtos:
Ao invés de encher de DO WHILE, cada rotina faz sua parte.
O primeiro processa as notas, os registros 100.
geraPedido() mostra os pedidos daquela nota, os registros 170
GeraProdutoPedido() mostra os produtos daquele pedido, os registros 190.
Comparando com sua rotina, é como se voce colocasse todas as notas, depois todos os pedidos, e depois todos os produtos.
Acaba ficando tudo misturado, sem saber o que percente a cada coisa.
Como dizia uma regra antiga de programação:
Se você tem um problema grande, divida em pequenos problemas, e resolva um pequeno problema por vez.
Nota: usei esses arquivos só pra exemplificar, não é isso que vai no sped...
Código: Selecionar todos
SELECT NOTAS
DO WHILE .NOT. Eof()
? "NF - 100"
GeraPedidos() // 170
SKIP
ENDDO
RETURN
FUNCTION GeraPedidos() // 170
LOCAL nSelect := Select()
SELECT PEDIDOS
SEEK nota->NF
DO WHILE pedido->NF == nota->nf .AND. .NOT. Eof()
? "pedido -= 170"
GeraProdutoPedido() // 190
SKIP
ENDDO
SELECT (nSelect)
RETURN NIL
FUNCTION GeraPedidoProduto() // 190
LOCAL nSelect := Select()
SELECT produtopedido
SEEK pedidos->Pedido
DO WHILE produtopedido->Pedido == pedidos->pedido .and. .not. eof()
? "Produto pedido - 190"
SKIP
ENDDO
SELECT (nSelect)
RETURN NIL
O primeiro processa as notas, os registros 100.
geraPedido() mostra os pedidos daquela nota, os registros 170
GeraProdutoPedido() mostra os produtos daquele pedido, os registros 190.
Comparando com sua rotina, é como se voce colocasse todas as notas, depois todos os pedidos, e depois todos os produtos.
Acaba ficando tudo misturado, sem saber o que percente a cada coisa.
Como dizia uma regra antiga de programação:
Se você tem um problema grande, divida em pequenos problemas, e resolva um pequeno problema por vez.
Nota: usei esses arquivos só pra exemplificar, não é isso que vai no sped...
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/