Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Cristiane Tiemi Sato

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (gabriel.asantos)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.



Informe o código do item escolhido do check list:01
Justificativa da escolha do check list:erro em geral
Informe o motivo da criticidade do Ticket:alta, pois não existe saída de contorno


  •  

    (aviso) Situação Reproduzida Internamente? (aviso) 

Caso Não!<descrever o motivo de não ter simulado! Ajuda SQUAD a levantar situações para esta situação>



INFORMAÇÕES DE BASE:

Versão Cliente:12.1.17Banco:
  •  PROGRESS 10
  •  PROGRESS 11
  •  ORACLE
  •  SQL
Versão Interna:

12.1.17



SITUAÇÃO

No desenvolvimento da averbação de MDFe, o sistema utiliza sempre o cadastro de seguradora que está no MV_FORSEG.

Conforme trecho do fonte TMSAVBE

Function AvbGrvMdf(cFilMan, cManif, cSerMan, dDatMan, cStatMdf, cSeqCond)


Local cSeqEve   := "00"
Local lCont     := .T.
Local lIncCond  := IIf(cStatMdf == "003",.T.,.F.)
Local cForSeg   := SuperGetMv( "MV_FORSEG",,'' )
Local nTamCod   := TamSx3("A2_COD")[1]
Local nTamLoj   := TamSx3("A2_LOJA")[1]
Local cCodSeg   := Substr(cForSeg,1,nTamCod)
Local cLojaSeg  := Substr(cForSeg,nTamCod+1,nTamLoj)


Default cSeqCond := ""


If !(TableIndic("DL6") .And. TableIndic("DLI"))
        MsgNextRel( "Averbacao de Seguro - Tabelas DLI e DL6" )
        lCont := .F.
EndIf  


If lCont       
        DL6->(dbSetOrder(2))
        If !DL6->(dbSeek(xFilial("DL6")+cCodSeg+cLojaSeg))
                lCont := .F.
        EndIf

a função de gravação da DLI começa na linha 593 veja que ele posiciona na DL6 mas sempre pelo forseg

O MDFE deveria ser averbado para a mesma seguradora que o CTE foi averbado, ou seja com a seguradora da transportado e / ou seguradora do cliente.



RESULTADO ESPERADO

que para averbação do MDFe tenha a mesma logica do processo de averbação do CTE, se opção de cadastrar várias seguradoras e alternar as mesmas no momento da averbação



Procedimento/Programa de Acerto?
  •  Sim
  •  Não
<Descrever a necessidade do cliente>



SIMULAÇÃO
Cod ProgramaAção

trecho do fonte

TMSAVE

Function AvbGrvMdf(cFilMan, cManif, cSerMan, dDatMan, cStatMdf, cSeqCond)


Local cSeqEve   := "00"
Local lCont     := .T.
Local lIncCond  := IIf(cStatMdf == "003",.T.,.F.)
Local cForSeg   := SuperGetMv( "MV_FORSEG",,'' )
Local nTamCod   := TamSx3("A2_COD")[1]
Local nTamLoj   := TamSx3("A2_LOJA")[1]
Local cCodSeg   := Substr(cForSeg,1,nTamCod)
Local cLojaSeg  := Substr(cForSeg,nTamCod+1,nTamLoj)


Default cSeqCond := ""


If !(TableIndic("DL6") .And. TableIndic("DLI"))
        MsgNextRel( "Averbacao de Seguro - Tabelas DLI e DL6" )
        lCont := .F.
EndIf  


If lCont       
        DL6->(dbSetOrder(2))
        If !DL6->(dbSeek(xFilial("DL6")+cCodSeg+cLojaSeg))
                lCont := .F.
        EndIf







Informações para Situações não Simulada

Para Todas as Situações

DocumentoArquivo
Clientlog<salvar neste espaço o documento>
Extrato de Versão<salvar neste espaço o documento>
Simulação do cliente (sem específicos)
  •  SIM
  •  NÃO

Performance

DocumentoArqvivo
Profiler<salvar neste espaço o documento>

Equipe de BD já avaliou a integridade de índices e fragmentação das tabelas?

  •  SIM
  •  NÃO

Integração com outros Sistemas

DocumentoArquivo
Anexar toda e qualquer evidencia gerada pela integração, arquivos de entrada/saída