NFe - ACBRNFEMONITOR - Nota conjugada - Tag ISSQN não aparec
Enviado: 04 Nov 2011 10:55
Como faz para aparecer a Tag do ISSQN, eu informo isso mas o ACBrNFeMonitor insistem em trocar por ICMS ?
No INI ao invés de aparecer ISSQNXXX aparece ICMSXXX
Estou fazendo assim:
No INI ao invés de aparecer ISSQNXXX aparece ICMSXXX
Estou fazendo assim:
Código: Selecionar todos
FWriteLine( Nfe_Handle, "[Produto" + StrZero( xCpd, 3 ) + "]" )
FWriteLine( Nfe_Handle, "Ncm=00" )
FWriteLine( Nfe_Handle, "CFOP=5933" )
FWriteLine( Nfe_Handle, "Codigo=" + RTrim( Saise->Codser ) )
FWriteLine( Nfe_Handle, "Descricao=" + RTrim( Saise->Desser) )
FWriteLine( Nfe_Handle, "Unidade=UN" )
FWriteLine( Nfe_Handle, "Quantidade=" + LTrim( StrTran( Str( Saise->Quanti, 12, 4 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "ValorUnitario=" + LTrim( StrTran( Str( Saise->Vlruni, 16, 4 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "ValorTotal=" + LTrim( StrTran( Str( Saise->Valtot, 15, 2 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "indTot=0" ) && 2.0 && valor prod. entra no total NF / 0-Não entra
FWriteLine( Nfe_Handle, "[Issqn" + StrZero( xCpd, 3 ) + "]" )
FWriteLine( Nfe_Handle, "VBC=" + LTrim( StrTran( Str( Saise->Valtot, 15, 2 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "VALIQ=" + LTrim( StrTran( Str( Confg->Aliser, 5, 2 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "VISSQN=" + LTrim( StrTran( Str( Saise->Valtot * ( Confg->Aliser / 100 ), 15, 2 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "CMUNFG=" + RTrim( Confg->Corinvpri ) )
FWriteLine( Nfe_Handle, "CLISTSERV=1401" )
FWriteLine( Nfe_Handle, "cSitTrib=N" )
FWriteLine( Nfe_Handle, "[PIS" + StrZero( xCpd, 3 ) + "]" )
FWriteLine( Nfe_Handle, "CST=" + "01" )
FWriteLine( Nfe_Handle, "ValorBase=" + LTrim( StrTran( Str( Saise->Valtot, 15, 2 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "Aliquota=" + "0.65" )
FWriteLine( Nfe_Handle, "Valor=" + LTrim( StrTran( Str( Saise->Valtot * ( 0.65 / 100 ), 15, 2 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "[COFINS" + StrZero( xCpd, 3 ) + "]" )
FWriteLine( Nfe_Handle, "CST=" + "01" )
FWriteLine( Nfe_Handle, "ValorBase=" + LTrim( StrTran( Str( Saise->Valtot, 15, 2 ), ",", "." ) ) )
FWriteLine( Nfe_Handle, "Aliquota=" + "3.0" )
FWriteLine( Nfe_Handle, "Valor=" + LTrim( StrTran( Str( Saise->Valtot * ( 3.0 / 100 ), 15, 2 ), ",", "." ) ) )