- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Customização telecobrança
×
Linguagem de Programação ADVPL
Perguntas Customização telecobrança
- jefersontav
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 20
- Obrigados Recebidos: 0
9 anos 5 meses atrás #28349
por jefersontav
Customização telecobrança foi criado por jefersontav
Pessoal, boa tarde.
Estou customizando o telecobrança para que o pessoal do callcenter verifique as parcelas em aberto, e já atualizem os valores.
Bom, esta tudo indo as mil maravilhas até eu verificar que o histórico do atendimento esta sendo gravado, mas quando eu consulto pela rotina padrão o histórico da entidade, e o histórico que esta gravado na SYP, não é mostrado, mas ele esta gravado.
Alguém já passou por isso, ou sabe o que pode estar ocorrendo.
Segue abaixo código fonte da parte de gravação do atendimento, se algum puder me ajudar.
Muito obrigado
nCodigo := GetSXENum("ACF","ACF_CODIGO")
dbSelectArea("ACF")
RECLOCK("ACF", .T.)
ACF->ACF_FILIAL := '06'
ACF->ACF_CODIGO := nCodigo
ACF->ACF_CLIENT := '005189'
ACF->ACF_LOJA := '01'
ACF->ACF_OPERAD := '000002'//Codigo do Operador
ACF->ACF_OPERA := '2' //1-Receptivo 2-Ativo
ACF->ACF_CODCON := ''//'009469'//CODIGO CONTATO
ACF->ACF_STATUS := '3'//1-Atendimento 2-Cobranca 3-Encerrado
ACF->ACF_MOTIVO := '000001'//TABELA DE OCORRENCIA
ACF->ACF_PENDEN := dDatabase //DATA DO RETORNO
ACF->ACF_HRPEND := Left(Time(),5) //HORA DO RETORNO
ACF->ACF_DATA := dDatabase //DATA DO ATENDIMENTO
ACF->ACF_INICIO := Left(Time(), //COLOCAR EM UMA VARIAVEL NO INICIO DA FUNÇÃO
ACF->ACF_FIM := Left(Time(),
ACF->ACF_OPERAT := '000002'//Codigo do Operador
cCodObs := MSMM(ACF->ACF_CODOBS,TamSx3("ACF_OBS")[1],,'TESTE DE GRAVAÇÃO DO CAMPO MEMO1',1,,,"ACF","ACF_CODOBS")
MSUNLOCK()
ConfirmSX8()
dbSelectArea("ACG")
RECLOCK("ACG", .T.)
ACG->ACG_FILIAL := '06
ACG->ACG_CODIGO := NCODIGO
ACG->ACG_PREFIX := '001'
ACG->ACG_PARCEL := 'F'
ACG->ACG_TIPO := 'BOL'
ACG->ACG_FILORI := '06'
ACG->ACG_TITULO := '000024097'
ACG->ACG_STATUS := ''
ACG->ACG_DTVENC := CTOD('26/09/2015')
ACG->ACG_DTREAL := CTOD('28/09/2015')
ACG->ACG_VALOR := 528.85
ACG->ACG_NATURE := '10101'
ACG->ACG_NUMBCO := '000001191562'
ACG->ACG_VALJUR := 0.9
ACG->ACG_PORJUR := 0.17
MSUNLOCK()
Estou customizando o telecobrança para que o pessoal do callcenter verifique as parcelas em aberto, e já atualizem os valores.
Bom, esta tudo indo as mil maravilhas até eu verificar que o histórico do atendimento esta sendo gravado, mas quando eu consulto pela rotina padrão o histórico da entidade, e o histórico que esta gravado na SYP, não é mostrado, mas ele esta gravado.
Alguém já passou por isso, ou sabe o que pode estar ocorrendo.
Segue abaixo código fonte da parte de gravação do atendimento, se algum puder me ajudar.
Muito obrigado
nCodigo := GetSXENum("ACF","ACF_CODIGO")
dbSelectArea("ACF")
RECLOCK("ACF", .T.)
ACF->ACF_FILIAL := '06'
ACF->ACF_CODIGO := nCodigo
ACF->ACF_CLIENT := '005189'
ACF->ACF_LOJA := '01'
ACF->ACF_OPERAD := '000002'//Codigo do Operador
ACF->ACF_OPERA := '2' //1-Receptivo 2-Ativo
ACF->ACF_CODCON := ''//'009469'//CODIGO CONTATO
ACF->ACF_STATUS := '3'//1-Atendimento 2-Cobranca 3-Encerrado
ACF->ACF_MOTIVO := '000001'//TABELA DE OCORRENCIA
ACF->ACF_PENDEN := dDatabase //DATA DO RETORNO
ACF->ACF_HRPEND := Left(Time(),5) //HORA DO RETORNO
ACF->ACF_DATA := dDatabase //DATA DO ATENDIMENTO
ACF->ACF_INICIO := Left(Time(), //COLOCAR EM UMA VARIAVEL NO INICIO DA FUNÇÃO
ACF->ACF_FIM := Left(Time(),
ACF->ACF_OPERAT := '000002'//Codigo do Operador
cCodObs := MSMM(ACF->ACF_CODOBS,TamSx3("ACF_OBS")[1],,'TESTE DE GRAVAÇÃO DO CAMPO MEMO1',1,,,"ACF","ACF_CODOBS")
MSUNLOCK()
ConfirmSX8()
dbSelectArea("ACG")
RECLOCK("ACG", .T.)
ACG->ACG_FILIAL := '06
ACG->ACG_CODIGO := NCODIGO
ACG->ACG_PREFIX := '001'
ACG->ACG_PARCEL := 'F'
ACG->ACG_TIPO := 'BOL'
ACG->ACG_FILORI := '06'
ACG->ACG_TITULO := '000024097'
ACG->ACG_STATUS := ''
ACG->ACG_DTVENC := CTOD('26/09/2015')
ACG->ACG_DTREAL := CTOD('28/09/2015')
ACG->ACG_VALOR := 528.85
ACG->ACG_NATURE := '10101'
ACG->ACG_NUMBCO := '000001191562'
ACG->ACG_VALJUR := 0.9
ACG->ACG_PORJUR := 0.17
MSUNLOCK()
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Customização telecobrança
Tempo para a criação da página:0.075 segundos