CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Tela XXX
    1. Outras Ações / Ações relacionadas
  4. Tela XXX
    1. Principais Campos e Parâmetros
  5. Tabelas utilizadas


01. VISÃO GERAL

Rotina para associar um evento de qualquer guia com uma Nota Fiscal cadastrada no sistema, quando a Operadora fornece diretamente ao prestador algum tipo de material, como uma prótese.
Ou seja, caso a Operadora compre 10 DIU's e forneça para o prestador, quando receber a cobrança do prestador, pode associar o evento de colocação de DIU com a a Nota onde consta a compra desses 10 DIU's, para controle e não realizar o pagamento duplicado  para o prestador - já que foi a Operadora que forneceu o material - além de ser utilizado para sair no arquivo de monitoramento


02. EXEMPLO DE UTILIZAÇÃO

Use esse espaço para colocar exemplos de utilização. 

03. TELA XXXXX

Outras Ações / Ações relacionadas

AçãoDescrição
Inclua a ação Inclua a descrição relacionada
Inclua a ação Inclua a descrição relacionada
Inclua a ação Inclua a descrição relacionada

04. TELA XXXXX

Principais Campos e Parâmetros

CampoDescrição
Inclua o campo Inclua a descrição relacionada
Inclua o campo Inclua a descrição relacionada
Inclua o campo Inclua a descrição relacionada



05. TABELAS UTILIZADAS


B19 - Nota Fiscal Guias Internação  


SX2 - Informações da Tabela 
Campo Descrição
X2_CHAVEB19
X2_NOME

Nota Fiscal Guias Internação  




SX3 - Informações dos Campos
CampoDescrição
CampoB19_FILIAL
TipoCaractere
Tamanho8
Decimal0
TítuloFilial
DescriçãoFilial
UsadoNão
ObrigatórioNão
BrowseNão
Ordem01

CampoDescrição
CampoB19_FORNEC
TipoCaractere
Tamanho6
Decimal0
Formato@!
TítuloFornecedor
DescriçãoCódigo do Fornecedor
ValidExistCpo("SA2",M->B19_FORNEC)    
UsadoSim
ObrigatórioSim
BrowseSim
ContextoReal
PropriedadeAlterar
Cons. PadrãoFOR
Grupo Campo (SXG)001
Ordem02

CampoDescrição
CampoB19_LOJA
TipoCaractere
Tamanho2
Decimal0
Formato@!
TítuloLoja
DescriçãoLoja do Fornecedor       
ValidExistCpo("SA2",M->B19_FORNEC+M->B19_LOJA)                      
UsadoSim
ObrigatórioSim
BrowseSim
ContextoReal
PropriedadeAlterar
Grupo Campo (SXG)002
Ordem03

CampoDescrição
CampoB19_DOC
TipoCaractere
Tamanho9
Decimal0
Formato@!
TítuloDocumento
DescriçãoDocumento Fiscal
ValidPL298VLDNF("1") .and. ExistCpo("SF1",  M->(B19_FORNEC+B19_LOJA+B19_DOC),2)
UsadoSim
ObrigatórioSim
BrowseSim
ContextoReal
PropriedadeAlterar
Cons. PadrãoB1VPLS
Grupo Campo (SXG)018
Ordem04

CampoDescrição
CampoB19_SERIE
TipoCaractere
Tamanho3
Decimal0
Formato@!
TítuloSérie       
DescriçãoSérie do Documento       
ValidPL298VLDNF("2") .And. ExistChav("B19", M->(B19_DOC+B19_SERIE+B19_FORNEC+B19_LOJA))
UsadoSim
ObrigatórioSim
BrowseSim
ContextoReal
PropriedadeAlterar
Grupo Campo (SXG)094
Ordem05

CampoDescrição
CampoB19_ITEM
TipoCaractere
Tamanho4
Decimal0
Formato@!
TítuloItem
DescriçãoItem do Documento
ValidPlItem298()
UsadoSim
ObrigatórioNão
BrowseNão
ContextoReal
PropriedadeVisualizar
Cons. PadrãoB19SD1
Ordem06

CampoDescrição
CampoB19_COD
TipoCaractere
Tamanho30
Decimal0
TítuloProduto
DescriçãoCódigo do Produto
UsadoSim
ObrigatórioSim
BrowseNão
ContextoReal
PropriedadeVisualizar
Grupo Campo (SXG)030
Ordem07

CampoDescrição
CampoB19_DESC
TipoCaractere
Tamanho40
Decimal0
Formato@!
TítuloDescrição
DescriçãoDescrição do Produto
UsadoSim
ObrigatórioNão
BrowseNão
Inic. PadrãoIIf(!INCLUI,Posicione("SB1",1,xFilial("SB1")+B19->B19_COD,"B1_DESC"),"")                                                        
ContextoVirtual
PropriedadeVisualizar
Ordem08

CampoDescrição
CampoB19_GUIA
TipoCaractere
Tamanho28
Decimal0
Formato@R 9999.9999.99999999.99999999.9.999         
TítuloGuia      
DescriçãoGuia Relacionada       
ValidPL298VLGUI()
UsadoSim
ObrigatórioSim
BrowseNão
ContextoReal
PropriedadeAlterar
Cons. PadrãoB1XPLS
Ordem09

CampoDescrição
CampoB19_NOMUSR
TipoCaractere
Tamanho70
Decimal0
Formato@!
TítuloNome Usuário          
DescriçãoNome do Usuário          
Inic. PadrãoIIf(!INCLUI,Posicione("BD6", 1, xFilial("BD6")+B19->B19_GUIA, "BD6_NOMUSR"),"")
UsadoSim
ObrigatórioNão
BrowseNão
ContextoVirtual
PropriedadeVisualizar
Inic. BrowsePosicione("BD6", 1, xFilial("BD6")+B19->B19_GUIA, "BD6_NOMUSR")                 
Ordem10

CampoDescrição
CampoB19_SDOC
TipoCaractere
Tamanho3
Decimal0
Formato@R !!!!.!!.!!!!!!!!!!!!
TítuloSérie Doc.  
DescriçãoSérie Documento Fiscal
UsadoSim
ObrigatórioNão
BrowseNão
ContextoReal
PropriedadeVisualizar
Grupo Campo (SXG)095
Ordem11

CampoDescrição
CampoB19_VLRTNF
TipoNumérico
Tamanho16
Decimal2
Formato@E 9,999,999,999,999.99                      
TítuloValor Itens
DescriçãoValor dos Itens
UsadoSim
ObrigatórioNão
BrowseNão
ContextoReal
PropriedadeAlterar
Ordem12

CampoDescrição
CampoB19_PRINCI
TipoCaractere
Tamanho1
Decimal0
Formato@!
TítuloPrincipal
DescriçãoPrincipal Item controle
UsadoSim
ObrigatórioNão
BrowseNão
Inic. Padrão"0"
ContextoReal
PropriedadeVisualizar
Ordem13

CampoDescrição
CampoB19_NMFORN
TipoCaractere
Tamanho30
Decimal0
Formato@!
TítuloNome Fornec.
DescriçãoNome do Fornecedor
UsadoSim
ObrigatórioNão
BrowseSim
Val. SistemaPLA09AUSU()
ContextoVirtual
PropriedadeVisualizar
Inic. BrowsePosicione("SA2", 1, xFilial("SA2") + B19->(B19_FORNEC+B19_LOJA), "A2_NOME") 
Ordem14


SIX - Índices da Tabela
INDICEB19
ORDEM1
CHAVEB19_FILIAL+B19_DOC+B19_SERIE+B19_FORNEC+B19_LOJA
DESCRICAOFilial + Documento + Série + Fornecedor + Loja
SHOWPESQS

INDICEB19
ORDEM2
CHAVEB19_FILIAL+B19_GUIA
DESCRICAOFilial + Guia
SHOWPESQS

INDICEB19
ORDEM3
CHAVEB19_FILIAL+B19_DOC+B19_SDOC+B19_FORNEC+B19_LOJA
DESCRICAOFilial + Documento + Série Doc + Fornecedor + Loja
SHOWPESQS

Consulta Padrão FOR   


Consulta SXB

AliasFOR
Tipo1 - Consulta
Sequência01
ColunaDB
DescriçãoFornecedor   
ContêmSA2


AliasFOR
Tipo2 - Ordens
Sequência01
Coluna01
DescriçãoCódigo


AliasFOR
Tipo2 - Ordens
Sequência02
Coluna02
DescriçãoNome


AliasFOR
Tipo2 - Ordens
Sequência03
Coluna03
DescriçãoCNPJ/CPF


AliasFOR
Tipo3 - Botões
Sequência01
Coluna01
DescriçãoCadastra Novo       
Contêm01#A020SXB()#A020Visual('SA2')


AliasFOR
Tipo4 - Colunas
Sequência01
Coluna01
DescriçãoCódigo
ContêmA2_COD


AliasFOR
Tipo4 - Colunas
Sequência01
Coluna02
DescriçãoLoja
ContêmA2_LOJA


AliasFOR
Tipo4 - Colunas
Sequência01
Coluna03
DescriçãoNome
ContêmSUBSTR(A2_NOME,1,30)


AliasFOR
Tipo5 - Retorno
Sequência01
Coluna
Descrição
ContêmSA2->A2_COD


AliasFOR
Tipo5 - Retorno
Sequência02
ContêmSA2->A2_LOJA                         




Consulta Padrão B1XPLS   


Consulta SXB

AliasB1XPLS
Tipo1 - Consulta
Sequência01
ColunaRE
DescriçãoGuias de Internação    
ContêmBD6


AliasB1XPLS
Tipo2 - Ordens
Sequência01
Coluna01
ContêmPLPESQGUIA()


AliasB1XPLS
Tipo5 - Retorno
Sequência01
ContêmBD6->(BD6_CODOPE+BD6_CODLDP+BD6_CODPEG+BD6_NUMERO+BD6_ORIMOV+BD6_SEQUEN) 




Consulta Padrão B1VPLS   


Consulta SXB

AliasB1VPLS
Tipo1 - Consulta
Sequência01
ColunaDB
DescriçãoNF's Entrada        
ContêmSF1


AliasB1VPLS
Tipo2 - Ordens
Sequência01
Coluna01
DescriçãoDoc+Série           


AliasB1VPLS
Tipo2 - Ordens
Sequência02
Coluna02
DescriçãoFornecedor+Loja     


AliasB1VPLS
Tipo4 - Colunas
Sequência01
Coluna01
DescriçãoCod
ContêmF1_DOC


AliasB1VPLS
Tipo4 - Colunas
Sequência01
Coluna02
DescriçãoSérie
ContêmF1_SERIE


AliasB1VPLS
Tipo4 - Colunas
Sequência01
Coluna03
DescriçãoFornecedor
ContêmF1_FORNECE


AliasB1VPLS
Tipo4 - Colunas
Sequência01
Coluna04
DescriçãoLoja
ContêmF1_LOJA


AliasB1VPLS
Tipo5 - Retorno
Sequência01
ContêmSF1->F1_DOC


AliasB1VPLS
Tipo5 - Retorno
Sequência02
ContêmSF1->F1_SERIE


AliasB1VPLS
Tipo6 - Filtros
Sequência01
ContêmF1_FORNECE == M->B19_FORNEC .And. F1_LOJA == M->B19_LOJA




Consulta Padrão B19SD1  


Consulta SXB

AliasB19SD1
Tipo1 - Consulta
Sequência01
ColunaDB
DescriçãoProdutos        
ContêmSD1


AliasB19SD1
Tipo2 - Ordens
Sequência01
Coluna01
DescriçãoDocumento + Serie          


AliasB19SD1
Tipo4 - Colunas
Sequência01
Coluna01
DescriçãoItem NF
ContêmD1_ITEM


AliasB19SD1
Tipo4 - Colunas
Sequência01
Coluna02
DescriçãoProduto
ContêmD1_COD


AliasB19SD1
Tipo5 - Retorno
Sequência01
ContêmSD1->D1_ITEM


AliasB19SD1
Tipo5 - Retorno
Sequência02
ContêmSD1->D1_COD


AliasB19SD1
Tipo6 - Filtros
Sequência01
ContêmD1_FILIAL == xFilial("SD1") .and. D1_DOC == FwFldGet("B19_DOC") .and. D1_SERIE == FwFldGet("B19_SERIE") .and. D1_FORNECE == FwFldGet("B19_FORNEC") .and. D1_LOJA == FwFldGet("B19_LOJA")