Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Erro na estrutura do C170


jonathanrangel
  • Este tópico foi criado há 4042 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá a todos.

Estou com um problema na validação dos registros C170.

No campo 19 - IND_APUR , não está indo com o valor indicado, ou o componente está comendo campos

ou acrescentando.

Obrigado.

Jonathan Rangel

http://www.canion.com.br

Programador DELPHI

Programador PHP

Programador JavaScript

-------------------------

Manager SQL Server 2000

Manager Firebird 2.5

Manger Mysql 5.0.1

Link to comment
Share on other sites

Acabei achando o erro e com ele a resolução.

Add(

              {01} LFill('C170')                 +

              {02} LFill( NUM_ITEM )             +

              {03} LFill( COD_ITEM )             +

              {04} LFill( DESCR_COMPL )          +

              {05} LFill( QTD, 5 )               +

              {06} LFill( UNID )                 +

              {07} LFill( VL_ITEM,0,2 )          +

              {08} LFill( VL_DESC,0,2 )          +

              {09} LFill( intIND_MOV )           +

              {10} LFill( strCST_ICMS)           +

              {11} LFill( CFOP,4 )               +

              {12} LFill( COD_NAT )              +

              {13} LFill( VL_BC_ICMS,0,2 )       +

              {14} LFill( ALIQ_ICMS,0,2 )        +

              {15} LFill( VL_ICMS,0,2 )          +

              {16} LFill( VL_BC_ICMS_ST,0,2 )    +

              {17} LFill( ALIQ_ST,0,2 )          +

              {18} LFill( VL_ICMS_ST,0,2 )       +

              {19} LFill( IntToStr(intIND_APUR) )          +  //Deve se converter as variáveis inteiros para String;

              {20} LFill( strCST_IPI )           +

              {21} LFill( COD_ENQ )              +

              {22} LFill( VL_BC_IPI,0,2 )        +

              {23} LFill( ALIQ_IPI,0,2 )         +

              {24} LFill( VL_IPI,0,2 )           +

              {25} LFill( strCST_PIS )           +

              {26} LFill( VL_BC_PIS,0,2 )        +

              {27} LFill( ALIQ_PIS_PERC,0,2 )    +

              {28} LFill( QUANT_BC_PIS,3 )       +

              {29} LFill( ALIQ_PIS_R,4 )         +

              {30} LFill( VL_PIS,0,2 )           +

              {31} LFill( strCST_COFINS )        +

              {32} LFill( VL_BC_COFINS,0,2 )     +

              {33} DFill( ALIQ_COFINS_PERC,0 ) +

              {34} LFill( QUANT_BC_COFINS,3 )    +

              {35} LFill( ALIQ_COFINS_R,4 )      +

              {36} LFill( VL_COFINS,0,2 )        +

              {37} LFill( COD_CTA ) ) ;

Jonathan Rangel

http://www.canion.com.br

Programador DELPHI

Programador PHP

Programador JavaScript

-------------------------

Manager SQL Server 2000

Manager Firebird 2.5

Manger Mysql 5.0.1

Link to comment
Share on other sites

Acabei achando o erro e com ele a resolução.

Subi uma correção sobre esse relato.

Abs

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 4042 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.