Erro Registro C800 Campo Cnpj_Cpf

[João Paulo F. Bellucci]

Erro ao validar o campo CNPJ_CPF quando o mesmo estiver preenchido com CPF.

A rotina esta sempre preenchendo com 14 dígitos para resolver tive que altera a função.

 

Antes da correção:

 

Add( LFill('C800') +

               LFill( COD_MOD,2 ) +

               LFill( strCOD_SIT  ) +

               LFill( NUM_CFE,6 ) +

               LFill( DT_DOC, 'ddmmyyyy', booNFCancelada ) +

               LFill( VL_CFE,0,2, booNFCancelada ) +

               LFill( VL_PIS,0,2, booNFCancelada ) +

               LFill( VL_COFINS,0,2, booNFCancelada ) +

               LFill( CNPJ_CPF, 14, True ) +

               LFill( NR_SAT,9 ) +

               LFill( CHV_CFE ) +

               LFill( VL_DESC,0,2, booNFCancelada ) +

               LFill( VL_MERC,0,2, booNFCancelada ) +

               LFill( VL_OUT_DA,0,2, booNFCancelada ) +

               LFill( VL_ICMS,0,2, booNFCancelada ) +

               LFill( VL_PIS_ST,0,2, booNFCancelada ) +

               LFill( VL_COFINS_ST,0,2, booNFCancelada ) ) ;

 

Depois da correção:

 

Add( LFill('C800') +

               LFill( COD_MOD,2 ) +

               LFill( strCOD_SIT  ) +

               LFill( NUM_CFE,6 ) +

               LFill( DT_DOC, 'ddmmyyyy', booNFCancelada ) +

               LFill( VL_CFE,0,2, booNFCancelada ) +

               LFill( VL_PIS,0,2, booNFCancelada ) +

               LFill( VL_COFINS,0,2, booNFCancelada ) +

               LFill( CNPJ_CPF, 0, True ) +

               LFill( NR_SAT,9 ) +

               LFill( CHV_CFE ) +

               LFill( VL_DESC,0,2, booNFCancelada ) +

               LFill( VL_MERC,0,2, booNFCancelada ) +

               LFill( VL_OUT_DA,0,2, booNFCancelada ) +

               LFill( VL_ICMS,0,2, booNFCancelada ) +

               LFill( VL_PIS_ST,0,2, booNFCancelada ) +

               LFill( VL_COFINS_ST,0,2, booNFCancelada ) ) ;

 

[Juliomar Marchetti]

Boa tarde

já disponível no svn a correção !

 

Obrigado