Perguntas Faturamento gerando financeiro
- Edelson Goulart
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
2 anos 1 mês atrás #33287
por Edelson Goulart
Faturamento gerando financeiro foi criado por Edelson Goulart
Boa tarde, pessoal.
Quando emito uma NF de saída ela gera um titulo no financeiro tipo NF e eu preciso que o titulo seja tipo DP.
Alguém pode me ajudar, por gentileza?
Quando emito uma NF de saída ela gera um titulo no financeiro tipo NF e eu preciso que o titulo seja tipo DP.
Alguém pode me ajudar, por gentileza?
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
- Edelson Goulart
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
2 anos 1 mês atrás #33289
por Edelson Goulart
Respondido por Edelson Goulart no tópico Faturamento gerando financeiro
Ok, obrigado pelo retorno.
Tem algum ponto de entrada que posso utilizar para trocar o tipo NF para DP?
Tem algum ponto de entrada que posso utilizar para trocar o tipo NF para DP?
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
2 anos 1 mês atrás #33290
por admin
Respondido por admin no tópico Faturamento gerando financeiro
Cara o M460FIM senão me engano é na geração da nota fiscal, vc poderia utilizar este ponto de entrada pra mudar o tipo do titulo, porém, se a nota fiscal for cancelada por exemplo, vc precisa usar outro ponto de entrada pra excluir esse titulo, vou mandar uns exemplos aqui:
User Function M460FIM()
Local aArea := GetArea()
Local cTitulo := SC5->C5_NUM
Local cPrefixo := 'PDF' // Prefixo PDF Pedido de Vendas FATURA
Local cTipo := 'PRE' // Tipo Titulo Previo
Local cCliente := SC5->C5_CLIENTE
Local cLoja := SC5->C5_LOJACLI
// Alterando os Tipos E1_TIPO
If SF2->F2_SERIE$'LOC*NDB' .And. SE1->(dbSetOrder(2), dbSeek(xFilial("SE1")+SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC))
While SE1->(!Eof()) .And. SE1->E1_FILIAL == xFilial("SE1") .And. SE1->(E1_CLIENTE+E1_LOJA+E1_PREFIXO+E1_NUM) == SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC
If RecLock("SE1",.F.)
If SF2->F2_SERIE == 'LOC'
SE1->E1_TIPO := 'FT'
ElseIf SF2->F2_SERIE == 'NDB'
SE1->E1_TIPO := 'NDC'
Endif
SE1->(MsUnlock())
Endif
SE1->(DbSkip(1))
Enddo
Endif
RestArea(aArea)
Return .t.User Function MS520VLD()
Local _aAreas := GetArea()
If SF2->F2_SERIE$'LOC*NDB'
MsAguarde({||U_DELLOC()}, "", 'Excluindo Titulos LOC/NDC ' + SF2->F2_DOC , .T.)
Endif
RestArea(_aAreas)
return(.T.)
User Function DelLoc()
Local aArea := GetArea()
If SE1->(dbSetOrder(2), dbSeek(xFilial("SE1")+SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC))
While SE1->(!Eof()) .And. SE1->E1_FILIAL == xFilial("SE1") .And. SE1->(E1_CLIENTE+E1_LOJA+E1_PREFIXO+E1_NUM) == SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC
If AllTrim(SE1->E1_TIPO) == Iif(SF2->F2_SERIE == 'LOC','FT','NDC')
If RecLock("SE1",.F.)
SE1->(dbDelete())
SE1->(MsUnlock())
Endif
Endif
SE1->(DbSkip(1))
Enddo
Endif
RestArea(aArea)
return(.T.)
Os seguintes usuário(s) disseram Obrigado: Edelson Goulart
Por favor Acessar ou Registrar para participar da conversa.
- Edelson Goulart
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
2 anos 1 mês atrás - 2 anos 1 mês atrás #33291
por Edelson Goulart
Respondido por Edelson Goulart no tópico Faturamento gerando financeiro
Perfeito.
Era exetamente isso que eu estava procurando.
Obrigado.
Era exetamente isso que eu estava procurando.
Obrigado.
Ultima edição: 2 anos 1 mês atrás por Edelson Goulart.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.119 segundos