Perguntas Campo Volume 1, e Peso liquido e Peso Bruto duplicando os valores na Nota Fiscal

ok vou verificar.

Olha Luiz existe sim. Abaixo o código. Mas não achei nada com esses campos no fonte sendo mencionados.




#Include "Rwmake.ch"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³M460FIM ºAutor ³ Marcel Yamamoto º Data ³ 12/07/06 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Numero da Nota Fiscal, gerada pelo Siga e atualizar no º±±
±±º ³ Metrics º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

User Function M460FIM()


Local _aArea := GetArea()
Local _aAliasSD2 := SD2->(GetArea()) //Salva area SD2
Local _lM460FIM := GetMV("MV_M460FIM")

If Alltrim(SM0->M0_CODFIL) == "01" // Berrini-Mooca / Matriz
_cSerMetrics := "A"
_cSerSiga := "A"
ElseIf Alltrim(SM0->M0_CODFIL) == "02" // Rio de Janeiro
_cSerMetrics := "1E"
_cSerSiga := "1E"
ElseIf Alltrim(SM0->M0_CODFIL) == "03" // Itaqua
_cSerMetrics := "1A"
_cSerSiga := "1"
ElseIf Alltrim(SM0->M0_CODFIL) == "06" // Porto Alegre
_cSerMetrics := "P"
_cSerSiga := "P"
ElseIf Alltrim(SM0->M0_CODFIL) == "07" // Voto / HD
_cSerMetrics := "B"
_cSerSiga := "B"
EndIf

// Ultimo numero da Nota Fiscal do Metrics
//_cQuery := ' SELECT ValorInteiro FROM '+'"itqdb01"'+'.METRICS.DBO.PARAMETROS '
_cQuery := ' SELECT ValorInteiro FROM METRICS.DBO.PARAMETROS '
_cQuery += " WHERE CODPARAMETRO = 'FATNOTA' "
_cQuery += " AND Key2 = '"+_cSerMetrics+"'"
//memowrite("\FILES_BURTI\QUERY\M460FIM.SQL",_cQuery)
dbUseArea(.T., "TOPCONN", TCGENQRY(,,_cQuery), "TRB", .F., .T.)

dbSelectArea("TRB")
dbGoTop()
_nNFMetrics := TRB->ValorInteiro

TRB->(dbCloseArea())

// Proximo Numero da Nota Fiscal do Siga
_cQuery := " SELECT X5_DESCRI FROM "+ RetSqlName("SX5")
_cQuery += " where X5_TABELA='01' "
_cQuery += " and D_E_L_E_T_ <>'*' "
_cQuery += " and X5_CHAVE = '"+_cSerSiga +"'"
//memowrite("\FILES_BURTI\QUERY\M460FIM1.SQL",_cQuery)
dbUseArea(.T., "TOPCONN", TCGENQRY(,,_cQuery), "TRB", .F., .T.)
dbSelectArea("TRB")
dbGoTop()
_cNFSiga := Alltrim(TRB->X5_DESCRI)

TRB->(dbCloseArea())

// Atualiza a numeracao sequencial da NF do Metrics
If Val(_cNFSiga) > _nNFMetrics
//If Val(cNumero) > Val(_cNFMetrics)
// _cQuery := ' UPDATE '+'"itqdb01"'+'.METRICS.DBO.PARAMETROS '
_cQuery := ' UPDATE METRICS.DBO.PARAMETROS '
_cQuery += " SET ValorInteiro = '"+_cNFSiga+"'"
_cQuery += " WHERE CODPARAMETRO = 'FATNOTA' "
_cQuery += " AND Key2 = '"+_cSerMetrics+"'"
_nErro := TCSQLEXEC(_cQuery)
EndIf

//Verifica Codigo Fiscal para zerar o Valor de ICMS se necessario (- 02/03/2010)
dbSelectArea("SD2")
SD2->(dbSetOrder(3))
If dbSeek(SF2->F2_FILIAL+SF2->F2_DOC+SF2->F2_SERIE)
While SD2->(!EOF()) .AND. SD2->D2_FILIAL == SF2->F2_FILIAL .AND. ;
SD2->D2_DOC == SF2->F2_DOC .AND. SD2->D2_SERIE == SF2->F2_SERIE
If CValToChar(Trim(SD2->D2_CF)) $ '5933/6933/7933/7949' .AND. SD2->D2_BASEICM > 0 //Codigos Fiscais para zerar ICMS
RecLock("SD2",.F.)
SD2->D2_VALICM := 0
SD2->D2_PICM := 0
SD2->D2_BASEICM := 0
SD2->(MsUnLock())
EndIf
SD2->(dbSkip())
EndDo
EndIf

/*

If _lM460FIM

_cQry := " SELECT ZT_NUM NOTA
_cQry += " FROM " + RetSqlName("SZT")
_cQry += " WHERE ZT_IMPORT = ''"
_cQry += " AND ZT_NUM = '"+_cNFSiga+"'"
// MemoWrite("\FILES_BURTI\QUERY\MFATA03.SQL",_cQry)
dbUseArea(.T., "TOPCONN", TCGENQRY(,,_cQry), "TRB", .F., .T.)

TRB->(dbGoTop())
Do While TRB->(!Eof()) .And. TRB->(!Bof())

_cNota := TRB->NOTA

dbSelectArea("SC5")
SC5->(dbOrderNickName("C5XNOTA"))
If dbSeek(xFilial("SC5") + _cNota )

Do While _cNota == SC5->C5_XNOTA .And. Empty(SC5->C5_NOTA) .And. !Eof()
RecLock("SC5",.F.)
dbDelete()
MsUnLock()

dbSelectArea("SC6")
dbSetOrder(1)
If dbSeek(xFilial("SC6") + SC5->C5_NUM)
Do While SC5->C5_NUM == SC6->C6_NUM .And. !Eof()
RecLock("SC6",.F.)
dbDelete()
MsUnLock()
EndDo
EndIf
dbSelectArea("SC5")
SC5->(dbSkip())
EndDo

dbSelectArea("SZT")
dbSetOrder(2)
If dbSeek(xFilial("SZT") + _cNota )
RecLock("SZT",.F.)
dbDelete()
MsUnLock()
EndIf

EndIf
dbSelectArea("TRB")
dbSkip()
EndDo
TRB->(dbCloseArea())

EndIf
*/

RestArea(_aAliasSD2) //Restaura area SD2
RestArea(_aArea)
Return(cNumero)

Nossa cara nem me fale. Sim acontece em todas as Notas Fiscais Eletrônicas. Ok Vou fazer a pesquisa e posto aqui. Vi os gatilhos mais não achei nada. E também os gatilhos acho que mudaria na hora que digitasse correto ? No caso o valor só muda quando a nota é faturada.

Luiz, acredito que isso é do fone danfeii.prw. Em anexo estou mandando uma nota para visualização do problema.